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LA INTERPRETAtm 



Como de sobra se sabe, el lengua- 

je que usan los ordenadores el tan cesador cada una de las llneas e ins- 

nombrado y tan desconocido por trucciones BASIC que nosotros he- 

reuchos C6digo Mdquina, es decir, mos programado, a puro cbdigo bi- 

una sucesibn interminable de ceros y nario en el que el Z-80 se mueve co- 

unos (los bits). Entonces, ^por qu6 mo pez en el agua. 

cuando uno se sienta ante el ordena- Para analizar la labor del intbrprete 
dor y empieza a programar, usa pa- hi >.of de ver previamente c6mo se 

labras (eso si, inglesas) que nada tie- almacena un programs BASIC en la 

nen que ver con ceros y unos? Lo que memoria del Spectrum. Lo que uno 

estd claro es que el ordenador com- esccibe directamente sobre el teclado 

prende y ejecuta lo que hacemos no se almacena tal que asi, sino que 

(siempre que nos atengamos a la sin- sufre ciertas modificaciones para ma- 

taxis del BASIC, por supuesto). La yor comodidad del intbrprete. En pri- 

clave de esta aparente paradoja estb mer lugar no es lo mismo introducir 

en b inalterable ROM; a los 16 kb que una orden directa (sin numero de II- 

tiene, reside un complicado progra- nea), que pasa inmediatamente a ser 

ma desarrollado por los tbcnicos de traducida y ejecutada, que introducir 

Sinclair, que tiene la diflcil tarea de un programs con sus numeros de II- 

traducirle al microprocesador del ntea correspondientes. Este programs 

Spectrum (el famoso Z-80A) lo que queda almacenado en RAM a partir 

escribe un ''impreciso'' y variable ser de la direccibn contenida en la varia- 

humano: es el denominado INTER- ble del sistema PROG, situada en las 

PRETE DE BASIC. posiciones 5C53H y 5C54H. Supon- 

Como buen "intbrprete" se encar- gamos que escribimos el siguiente 
ga de traducirle al sufrido micropro- programa: 


23750: O 
23756: 10 
73757: 8 
23758: O 

23759: 234 REM 

23760: 80 P 

23761: 82 R 

23762: 85 IJ 

23763: 69 E 

23764: 66 B 

23765: 65 A 

23766: 13 
23767: O 
23768: 15 
23769: 97 a 

23770: 0 

23771: 241 LEI 

23772: 80 P 

23773: 82 R 

23774: 79 O 

23775: 71 G 

23776: 61 
23777: 40 ( 
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23778: 

190 

PEEK 

23834: 

0 

23779: 

50 

2 

23835: 

43 

23700: 

51 

. 3 

23836: 

50 

23781 : 

54 

6 

23837: 

53 

23782: 

51 

3 

23838: 

54 

23783: 

53 

5 

23839: 

14 

23784: 

14 


23840: 

O 

23785: 

0 


2384 1 : 

0 

2378A: 

0 


23842: 

0 

23787: 

83 

S 

23843: 

1 

23788: 

92 

\ 

23844: 

0 

23789: 

0 


23045: 

42 

23790: 

4 5 

+ 

23846: 

190 

23791 : 

50 

2 

23847: 

50 

23792: 

53 

5 

23848: 

51 

23793: 

54 

6 

23849: 

54 

23794: 

14 


23850: 

50 

23795: 

0 


23851: 

56 

23796: 

0 


23852: 

14 

23797: 

0 


23853: 

0 

23793: 

1 


23854: 

0 

23799: 

0 


23855: 

76 

23800: 

42 

* 

23856: 

92 

23801: 

190 

PEEK 

23857: 

O 

23802: 

50 

2 

23858: 

41 

23803: 

51 

3 

23G59: 

45 

23804: 

54 

6 

23860: 

49 

23805: 

51 

3 

23861: 

14 

23806: 

54 

6 

23862: 

0 

23807: 

14 


23863: 

0 

23808: 

0 


23864: 

1 

23809: 

0 


23865: 

0 

23810: 

84 

T 

23866: 

0 

23811: 

92 

\ 

23867: 

13 

23812: 

0 


23868: 

0 

23813: 

41 

) 

23869: 

20 

23814: 

58 

: 

23870: 

14 

23815: 

241 

LET 

23871: 

0 

23816: 

70 

F 

23872: 

235 

23817: 

80 

P 

?3873: 

73 

23818: 

82 

R 

23874: 

61 

23819: 

79 

0 

23875: 

80 

23820: 

71 

G 

23876: 

82 

23821: 

61 

S3 

23877: 

79 

23822: 

40 

( 

23878: 

71 

23823: 

190 

PEEK 

23879: 

204 

23824: 

50 . 

2 

23880: 

70 

23825: 

51 

3 

23881: 

80 

23826: 

54 

6 

23882: 

82 

23827: 

50 

2 

23883: 

79 

23828: 

55 

7 

23884: 

71 

23829: 

14 


23885: 

13 

23830: 

0 


23886: 

0 

23831: 

0 


23887: 

30. 

23832: 

75 

K 

23888: 

39 

23833: 

92 

\ 

23889: 

0 



23890: 

274 

t PR T N 

-f 

23891 : 

73 

1 

2 

23892: 

59 

• 

9 

5 

23893: 

34 

M 

6 

23894: 

58 

• 


23895: 

32 



23896: 

34 

II 


23897: 

59 

4 


23898: 

190 

PEEK 


23899: 

73 

I 


23900: 

59 

• 

* 

* 

23901: 

173 

TAB 

PEEK 

23902: 

49 

1 

2 

23903: 

53 

5 

3 

23904: 

14 


6 

23905: 

0 


2 

23906: 

O 


8 

23907: 

15 



23908: 

o 



23909: 

0 



23910: 

59 

• 

Si 

L 

23911: 

40 

< 

\ 

23912: 

194 

CHR$ 


23913: 

190 

PEEK 

) 

23914: 

73 

I 

— 

23915: 

198 

AND 

1 

23916: 

190 

PEEK 


23917: 

73 

I 


23918: 

62 

> 


23919: 

51 

3 


23920: 

49 

1 


23921: 

14 



23922: 

0 



23923: 

0 



23924: 

31 



23925: 

0 



23926: 

0 



23927: 

41 

) 

FOR 

23928: 

13 


I 

23929: 

0 


at 

23930: 

40 

< 

p 

23931: 

3 


R 

23932: 

0 


0 

23933: 

243 

NEXT 

* G .. 

23934: 

73 

I 

TO 

23935: 

13 



F 

P Si lo ponemos en marcha observa- 

r mos algo asl: 

O 

P 10 REM PRUEBA 

15 LET PROG-(PEEK 23635*25A*PEEK 
23636)1 LET FPROG-(PEEK 23627^2 
56«PEEK 23628)-1 
20 FOR I-PROG TO FPROG 
30 LPRINT 11"» M |PEEK 11TAB 15; (C 
HR* PEEK I AND PEEK I>31) 

40 NEXT I 
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Los dos primeros bytes vemos que 
son 0 y 10 que. I6gicamente, indican 
el numero de linea. Pero ojo, el pri¬ 
mer byte es el de mayor peso, al con- 
trario de como se almacenan las va¬ 
riables del sistema. Viendo esto se po- 
dria pensar que el mayor numero de 
linea posible seria 65.535 (poniendo a 
255 los dos bytes) pero el intbrprete 
s6lo admite numeros de linea iguales 
o inferiores a 9.999. Si POKEamos en 
esos bytes para dar un numero de li¬ 
nea mayor podemos conseguir efec- 
tos muy curiosos. 

Los dos bytes siguientes (8 y 0) al¬ 
macenan la longitud total de la linea 
mbs el cbdigo del carbcter ENTER 
(13). Ahora el byte de mayor peso es 
el segundo, lo que indica que la linea 
10 tiene 8 bytes de longitud. (7 si no 
contamosel ENTER). A continuacibn 
vemos el numero 234. que corres- 
ponde al cbdigo del comando REM 
y. seguidamente. los cbdigos ASCII 
de cada una de las letras de la pala- 
bra PRUEBA. La linea acaba con el 
numero 13. que es el cbdigo de EN¬ 
TER. Como se ve. las lineas se alma¬ 
cenan de una manera bastante sen- 
cilla. Sblo hay una salvedad, pues la 
manera de almacenar los numeros es 
un tanto peculiar. Se podria pensar 
que cuando se introduce el numero 
2, bste se almacenaria en memoria 
con el valor 2 o, quizbs, con el valor 
de su cbdigo ASCII (50). Pero en rea¬ 
lidad es un poco mbs complicado. 
Los numeros se almacenan en un for- 
mato llamado coma flotante. Cuando 
el Editor de la ROM se encuentra un 
numero lo primero que hace es alma¬ 
cenar su cbdigo ASCII; a continua- 
cibn almacenan el cbdigo 14, que es 
el que indica al intbrprete que lo que 
viene a continuacibn es la represen- 
tacibn del numero en coma flotante. 
que consta de 5 bytes distribuidos de 
la siguiente manera: 

• 1 byte de exponente. 

• 1 byte de signo. 

• 31 byte de mantisa (4 bytes - 1 
bit). 

Asi. un numero ocupa en memoria 
tantos bytes como cifras tenga mbs 
6 bytes. 

Sin embargo, los numeros que for- 
man parte de una cadena (es decir, 
que van entre comillas) se almacenan 
nada mbs que con su cbdigo ASCII, 
pues el ordenador los trata como sim¬ 
ples caracteres. 

Despubs del programa BASIC vie¬ 
ne una zona indicada por la direccibn 


contenida en la variable del sistema 
VARS (5C4B H y 5C4C H) en la que 
estbn contenidas todas las variables 
del programa BASIC. Una vez que he- 
mos visto la forma de guardarse 
un programa BASIC, en memoria, es 
tamos listos para saber lo que ocurre 
cuando se pulsa la tecla RUN y el 
programa empieza a funcionar. 

Todas las rutinas residentes en la 
ROM son llamadas desde una rutina 
principal (MAIN) que ejecuta un bu- 
cle constante. Esta rutina consta de 
diversas partes, cada una de ellas con 
un cometido distinto: 

• MAIN-EXEC. Se encarga de hacer 
un listado autombtico. 

• MAIN-1. Limpia todas las zonas 
de trabajo. 

• MAIN-2. Produce la apertura del 
canal K (teclado) y llama a la rutina 
del editor. 

• MAIN-3. Ejecuta una linea o co¬ 
mando directo. 

• MAIN-4. Indica la direccibn de re- 
torno de la ejecucibn de un coman¬ 
do o programa. 

• MAIN-5 a MAIN-9. Ajusta las va¬ 
riables del sistema SUBPPC, 
OLDPPC y OSPPC 

• REP-MESS. Esta es la tabla don- 
de estbn almacenados los mensajes 
de error del BASIC. 

• MAIN-ADD. Es la rutina encarga- 
da de sustituir o afiadir una linea nue- 
va en el listado. 

Todas estas rutinas actuan en for¬ 
ma de bucle continuo. Cuando 
MAIN 2 llama al EDITOR, este espe- 
ra a que se pulse alguna tecla y va al- 
macenando lo que se introduce en el 
espacio de trabajo (esto ocurre sblo 
cuando es llamado por una senten- 
cia INPUT) o en el brea de edicibn si 
lo que se escribe es una linea BASIC 
o un comando directo. En nuestro 
caso, cuando pulsamos la tecla RUN 
y damos al ENTER, el EDITOR deja 
el cbdigo de RUN (247) en el brea 
BASIC y retorna a MAIN-2. MAIN-2 
cede el control a MAIN-3, que pasa 
a llamar a una rutina denominada LI¬ 
NE-RUN cuya misibn es ejecutar una 
instruccibn o programa. Al detectar 
el cbdigo de RUN llama a la direccibn 
1COD H, que es una rutina que bus 
ca una expresibn numbrica a conti¬ 
nuacibn del comando y, en caso de 
no existir parbmetros insertar el valor 
cero por defecto (por eso RUN en 
realidad RUN 0). Cuando se regresa 
de esta llamada LINE-RUN por fin lla¬ 
ma a la direccibn 1EA1 H, o sea. la 


propiamente dicha rutina del coman¬ 
do RUN. encargada de ejecutar un 
programa BASIC. 

En realidad, esta rutina consta de 
una especie de bucle que chequea las 
lineas del programa y va llamando a 
las rutinas de cada comando o fun- 
cibn que encuentra. Asi. cuando de¬ 
tecta el comando REM autombtica- 
mente salta a la linea siguiente; cuan¬ 
do detecta en la linea 15 el cbdigo 241 
(LET) pasa a ejecutar las rutinas que 
localizan una variable y le asignan un 
valor (en nuestro ejemplo 
PROG = PEEK...). Y asi sucesiva- 
mente hasta que se ejecuta la ultima 
instruccibn de la ultima linea del pro¬ 
grama BASIC. En ese momento, y si 
el programa no ha hecho algo raro 
(POKEado en memoria por ejemplo) 
el control vuelve a MAIN que nueva- 
mente comenzarb a enredarse en un 
bucle en espera de una nueva orden 
del amo omnipotente (el duefio del 
ordenador claro). 

Como se puede apreciar, este arti- 
culo no ha pretendido dar una des- 
cripcibn completa y paso a paso de 
la dificil tarea que lleva a cabo el in- 
tbrprete de la ROM, sino ir introdu- 
ciendo al lector en lo que en sucesi- 
vos articulos serb un completo y fas- 
cinante viaje a travbs de las calentu- 
rientas y eficientes rutinas "ROMia- 
nas''. 

NOTA: Para finalizar sugiero que, 
a modo de experimento, sean susti- 
tuidos todos los valores numbricos 
del programa ejemplo por sus equi- 
valentes cadenas alfanumbricas. Me 
explico: si tenemos la linea: 

15 LET PROG = (PEEK 
23635 + 256’PEEK... 
cambibmosla por: 

15 LET PROG = (PEEK VAL 
"23635" + VAL"256''*PEEK... 

Al ejecutarlo se verbn algunas di- 
■ferencias en la forma de almacenarse 
ahora. 
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JACK 


• JACK THE NIPPER II IN 
COCONUT CAPERS 

• GREMLIN GRAPHICS 

• DISTRIBUIDO POR ERBE 

Las clases han acabado y los padres 
de Jack the Nipper, deciden ir de va- 
caciones a Australia, a ver a la familia. 
Pero un viaje de tal calibre, no agrada 
a nadie. y menos si ese alguien es 
"Jack the Nipper". 

Por tanto la solucibn mbs sencilla, es 
hacer una escala paracaidista en pleno 
Africa, en el pueblo de GAFONES. 

Y aqul es donde comienza la epope- 
ya, culebras, bguilas, elefantes, abejas 
y hasta el mismisimo TARZAN, que no 
van a consentir que un mocoso como 
Jack, perturbe la tranquilidad de la 
selva. 

A Jack the Nipper ya solo le quedan 
dos opciones; 

• Morir en la selva a manos de sus 
enemigos. 

• 6 encontrar el templo del "HI 
NAUGHYNESS" y desvelar el misterio 
que sobre este se cierne. 

A travbs de nuestro recorrido por la 
selva, podremos encontrar unos u 
otros objetos que nos serbn de uti- 
lidad; 

• COCOS; AL cogerlos nos darbn 
17 disparos, que nos permitirbn acabar 
con nuestros enemigos. 


ESCUDOS; Seremos inmunes du¬ 
rante un tiempo limitado. 

CARRETILLA; Podremos transpor- 
tarnos por sitios de otra forma inacce- 
sibles. Con los controles podremos de¬ 
terminer la velocidad de la carretilla. 

Otros objetos de interns, pueden 
ser; el tarro de miel, el rat6n, la cuer- 
da. y otros muchos mbs, que utilizbn- 
dolos de la forma correcta pueden ha¬ 
cer subir nuestro NAUGHTYMETER. 

Tambibn encontraremos los perso- 
najes mbs pintorescos. que intentaran 
acabar con nosotros; vaqueros, explo- 
radores y nativos. 

• Resumiendo; Jack the Nipper II, ha 
logrado desbancar a su predecesor en 
calidad y adictividad. De 3D se ha pa- 
sado a 2D, las pantallas monocromas 
han pasado a multicolor, el movimien- 
to se ha agilizado dando mayor rapi- 
dez al juego y los efectos musicales 
son superiores a los de la versibn 
anterior. 

Es un juego rentable, que promote 
horas y horas de diversion, debido a su 


entrafiable dificultad. y al gran nume- 
ro de sus pantallas. 

PARA QUE TE SEA MAS FACIL, 
PUEDES USAR LOS SIGUIENTES 
POKES QUE TE OFRECEMOS. 

Vidas Infinites Poke 43251,0 

Objetos Infinitos Poke 38306,0 

(Sirve para cocos y escudos) 
CARGADOR 

10 CLEAR 24575 
20 LOAD "" SCREEN$ 

30 LOAD "" CODE 
40 POKE 43251.0: REM vidas infinitas. 
50 POKE 38306,0: REM objetos in¬ 
finitos. 

60 RUN USR 34240 

Si no quieres VIDAS INFINIIAS al 
copiar este cargador no copies la linea 


Si no quieres OBJETOS INFINITOS 
al copiar el cargador no copies la linea 


Despues de teclearlo pulsa RUN 
(Enter) y carga el original desde el 
principio. 
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En nuestro primer bles pulsando la tecla SHIFT 
numero hablamos del Spectrum y a continuaci6n el 
Disciple, un Interfax bot6n SNAPSHOT. Haciendo 
que permite conectar esto, el border permanecerb 
al Spectrum dos unida - parpadeante en espera de la 
des de disco f impresora pulsacibn de una de las op- 
con Interfax Centronics ciones del siguiente menu 
y dos mandos de fuegos . imaginario: 

— Copy de la pantalla en 

Pero ha llegado a nuestras impresora a tamafto normal, 
manos la versibn 3B de este Hay que hacer notar que la 
dispositivo, que amplla las copia es interpretada. Los co- 
posibilidades en lo referente lores 0-3 son impresos de tin- 
al disco y la impresora. Estas ta y los colores 4-7 conservan 
nuevas posibilidades son: el color del papel. 

1. Salvar un programa de — Copy de la pantalla a 

128K. doble tamafto. Los colores 

2. Salvar a disco una pan- son interpretados con tramas 

talla. de grises. 



3. Hacer COPY de la panta- — Graba la pantalla 
lla a impresora, en doble ta- (SCREEN) a disco. 

mafto y con interpretacibn de — Graba 48 K de memoria 
colores por trama de grises. a disco. El programa grabado 
(Sblo con impresoras compa- continua su ejecucibn en el 
tibles EPSON). mismo punto donde se dejb. 

4. Generacibn de ficheros Esto nos permite grabar, por 

ejecutables. ejemplo, un juego comercial 

5. Acceso aleatorio a dis- a disco en cualquier punto de 
co. que nos permite leer y es- su ejecucibn. 

cribir sectores individuates. — Graba 128 K de memoria 

6. Posibilidad de ampliar a disco. Igual que la opcibn 
ficheros existentes. Desde anterior, pero para el softwa- 
BASIC podemos abrir y re escrito en el Spectrum + 
cerrar corrientes y canales de de 128 K. 

los ficheros secuenciales. El disciple dispone de una 

7. En la "Red Local" es RAM propia, por lo cual no 

posible forrar un fichero so- consume memoria. En esta 
bre una estacibn. RAM es donde reside la con- 

Muchas de las posibilida- figuracibn del sistema ope 
des rqencionadas son accesi- rativo. 



POSI 

CION 

FUNCION 

VALORES 

NORMA- 

LES 

0 

Determina si parpadea o no el 
30RDER durante las opera 
iones de disco. Se realiza un 
MD del numero del sector 
:on el dato contenido en 6sta 
>osici6n. 

0-7 

1 

=ormato de la unidad de dis 
:o 1. Indica el numero de pis- 
es del disco y si es de sim 
ale o doble cara. 

numero de 
pistas + 
128 # doble 
cara 40, 
80, 168, 
208. 

2 

Formato de la unidad 2 

numero de 
pistas + 
128* doble 

cara. 

3 

Step rate (tiempo entre cada 
mpulso de disco). El valor mi 
nimo es 3. pero el mbs aeon 
sejable es 6. Normalmente 
depende de la unidad de dis 
co 

3-255 

4 

Determiner si se emplea o no 
el interfaz CENTRONICS 

0.1 

5 

Fija la anchura de impresibn 
en caracteres. Similar a 
WIDTH del Spectrum + 2 
Su valor normal es 80. 

0-80 






POSI 

CION 

FUNCION 

VALORES 

NORMA 

LES 

6 

Indicador para la impresora. 
Dice si ha de filtrar o no los 
eddigos de control. Un cero 
filtra los eddigos de color y ex 
pande los TOKENS. Un 1 en 
via todos los codrgos tal cual. 

0-1 

7 

Avance de linea. se da en 
n/72 de pulgada. Su valor 
normal es 12. 

n/72 

8 

Avances de linea. Indica e! 
numero de lineas en bianco 
que se dejan despuds de ca 
da retorno de carro. Para im 
presoras con avance de carro 
automdtico tendremos que 
darle el color. 

0,255 

9 

Fija margen izquierdo. Se en 
vian n espacios, despuds de 
cada retorno de carro. 

0,255 

10 

Indicador que dice si los ca 
racteies f. U y £ Iran de 
ser generados como grdficos 
(valor 1) o simplemente hay 
que enviar su cbdigo (valor 
0). Hay que recorder que ert 
los listados los U.D.G.s son 
impresos en modo grdfico. 

0.1 

_ 

11 

Numero de estacibn de la red. 
Vale 1 para la estacibn maes 
tra. 

1.63 


Gracias a que se ha previs- 
to una instrucci6n para que el 
BASIC pueda escribir en esta 
RAM. nos es posible modifi- 
car algur. punto de la confi- 
guracibn del sistema operati¬ 
ve. sin necesidad de cargar el 
programa en cinta creado pa¬ 
ra este fin. 

El formato de la instruc- 
cion BASIC es el siguiente: 

POKE $ direccibn. valor 

La forma en que el disciple 
reconoce esta instruccibn es 
similar al del interfaz 1 de 
Sinclair. Al producirse un 
error sintbctico, el control 
pasa al Disciple para compro- 
bar si se trata del menciona- 
do comando. 

A continuacibn, os vamos 
a listar las posiciones de me- 
moria de la RAM del Disciple 
con sus funciones y los valo- 
res que pueden contener pa¬ 
ra adaptar el sistema a nues- 
tras necesidades: 

TABLA 

Existen otros grupos de di- 
recciones en la RAM del DIS¬ 
CIPLE que nos pueden resul- 
tar de utilidad: 

En las direcciones 18-25 se 
guarda la secuencia de cbdi- 


gos necesaria para inicializar 
la impresora, seguido por el 
codigo 12, como marca de 
finaL 

En las posiciones 42-49 se 
almacenan los cbdigos que 
se han de enviar para pasar la 
impresora a modo grbfico. 
Igual que en el caso anterior, 
el final de la secuencia es 
marcado con el codigo 128. 

Por ultimo, y creemos que 
da gran interbs, son las posi¬ 
ciones 14 y 15 que almacenan 
la direccibn de memoria don- 
de se produce un salto indi- 
recto al aparecer un error de 
sintaxis. En el caso de conte¬ 
ner el valor 0, el sistema ope- 
rativo de disco devuelve el 
control a la ROM del. Spec¬ 
trum. Esto nos permite incor- 
porar nuevos comandos al 
Sistema Operativo. 

A nuestro juicio, el DISCI¬ 
PLE es un interfaz que resol- 
verb muchos de los proble- 
mas de expansibn de nuestro 
Spectrum. La posibilidad de 
almacenar informacibn en 
grandes'eantidades y a gran 
velocidad con el manejo de 
hasta dos unidades de disco 
y la posibilidad de adaptar 
cualquier tipo de impresora. 
lo convierten en un elemento 
casi indispensable en el hard¬ 
ware que acomparta a nues¬ 
tro micro. 



MUNDO SPECTRUM 9 








INDESCOMP 
PASA A MANOS 
DE AMSTRAD 


Ha sido presentado re- 
cientemente en Madrid 
el, tan anunciado, SIN¬ 
CLAIR PLUS 3 que incor¬ 
pora importantes mejoras 
sobre los anteriores equi- 
pos de la familia SPEC¬ 
TRUM; entre ellas la mbs 
destacable es la unidad 
de disco de 3 pulgadas 
muy similar a la de los or- 
denadores AMSTRAD 
CPC 664 y 6128 pero in¬ 
compatible con ellos. La 
capacidad del disco del 
SINCLAIR PLUS-3 es de 
173 kb formateados des- 
de el BASIC de bste or- 
denador. 

Otras caracteristicas 
destacables de bste orde- 
nador son su interface 
paralelo centronics que 
permite la conexibn de 
una impresora compati¬ 


ble EPSON, la salida MID 
RS232 para comunicacio- 
nes, dos conectores para 
JOYSTICKS y una salida 
RGB para monitor. 

La memoria RAM del 
SINCLAIR PLUS-3 es de 
128 kbytes divididos en 
dos bancos de 64 kb ca- 
da uno, pudiendo ser uti- 
lizado el segundo como 
un DISCO RAM. 

El BASIC, sin perder la 
compatibilidad con los 
modelos anteriores, in¬ 
corpora tambibn impor¬ 
tantes apipliaciones co¬ 
mo la instruccibn de soni- 
do PLAY que permite 
realizar melodias median- 
te los tres canales y ocho 
octavas, un nuevo CHIP 
de sonido independiente 
del procesador central. 

Otras caracteristicas de 


bste BASIC son sus co- 
mandos para la utilizacibn 
del disco (formateo, ges- 
tibn de ficheros, etc.), 
comandos para acceder 
al RAM DISC (disco si- 
mulado en memoria), po- 
sibilidad de evitar el filtro 
de caracteres para evitar 
cbdigos a impresora, etc. 

El SINCLAIR PLUS-3 
permite tambibn la utiliza- 
cibn del cassette median- 
te un conector JACK SE- 
TERO, asi como la co- 
nexibn a TV o monitor 
RGB mediante dos sali- 
das independientes. 

Esperamos poder am- 
pliar bsta noticia en proxi- 
mos numeros de MUN- 
DO SPECTRUM, con la 
realizacibn de un exahus- 
tivo banco de pruebas. 


Durante la celebracibn del 
25 certamen de SONIMAG 
en Barcelona en los ultimos 
dias del mes de septiembre, 
fue dada a conocer en rue- 
da de prensa a los medios 
informativos la noticia de la 
compra del 100 % de las ac 
ciones del GRUPO INDES¬ 
COMP por parte de la firma 
inglesa AMSTRAD PLC de 
cuyos productos, INDES¬ 
COMP es distribuidor exclu- 
sivo en nuestro pals. 

Alan Sugar, presidente de 
AMSTRAD PLC, se despla- 
zb hasta Barcelona para dar 
a conocer la noticia de la 
operacibn que supone la ab- 
sorcibn por parte de la com- 
paftia inglesa del total de la 
plantilla de Indescomp. 

Alan Sugar informb de su 
propbsito de que en un pla- 
zo breve fueran construidos 
en Espana algunos de los 
componentes de los equi- 
pos AMSTRAD. lo cual da- 
ria un fuerte impulso a la 
empresa. 

El acuerdo, pendiente de 
aprobacibn por parte del or- 
ganismo competente del 
gobierno espafiol. serb pri- 
mado en breve y el coste to¬ 
tal de la operacibn podria al- 
canzar los 250 millones de li¬ 
bras esterlinas: 216 a la fir¬ 
ma del contrato y el resto, 
en funcibn de los beneficios 
obtenidos en los primeros 5 
afios. 
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FORCE 


El juego posee tres fases: 

La primera consiste en ha- 
cer que los componentes del 
comando que se lanzan en 
paracaidas aterricen en la pla- 
taforma que tienen para ello. 

Luego, a bordo de cazas, 
tendrdn que cruzar el cinturdn 
de asteroides para completar 
la fase. 2. 

La tercera consiste en recu- 
perar los 5 discos que estdn 
ocultos en su cuartel, sin que 
el vigilante te capture. 

Comentario: 

Para los que deseen cono- 
cer cbmo trabaja el programa 
aqui tienen un comentario de 
lo que realiza cada fragmen- 
to: 

10-440. Proceso de iniciali- 
zacidn. Aqui se fijan los colo¬ 
res. se situa el tope del drea 
para BASIC en 59999, para 
meter seguidamente, a partir 
de esta direccibn, una rutina 
en C/M que desplaza 1 cardc- 
ter, a la izquierda el conteni- 
do de los 2/3 superiores de la 
pantalla y otra rutina que ge¬ 
nera en la parte alta de la 
RAM, otro banco grdfico 
donde las letras son el doble 
de gruesas que las del banco 
original. 

El proceso que sigue es to- 
mar cada uno de los bytes 


Espias del planeta XADON 
han robado los planes de de¬ 
fense de la tierra. Tu has sido 
la persona seleccionada entre 
miles de aspirantes para que, 
al mando de un pequefio ca- 
za-bombardero, comandes la 
operacibn de recuperar los 
discos, que con bsta valiosa 
informacibn, obran en poder 
del enemigo. 


10 REM *************** 

20 REM * XfiDOM-FORCE * 

30 REM *************** 

40 REM 

50 REM * Oft TR5 SCROLL * 

60 REM 

70 PftPER 0: BORDER 0. INK 7 
80 CLEftR 59999 

90 PRINT PftPER l;RT 11.5;"UN M 
OMENTO, POR FflUOR" 

100 DftTft 33,0,61,17,57,252,1.0 
110 DftTft 3,126,203,47,182,18.19 
120 DftTft 35,11,121,176,32.244 
130 DftTft 33,57,251,34,54,92.201 
140 RESTORE 100 LET S=0 
150 FOR ft=6E4 TO 60027 
160 READ B POKE ft,B: LET 5=S+B 
170 NEXT ft: IF S<>2360 TMEN PRI 
NT -ERROR EN DfiTflS": STOP 
180 REM 

190 REM * DftTftS LETRftS * 

200 REM 

210 DOTH 6,128,17,0,64,213,225, 
35,197,1,31,0,26,237,176,43,54.0 
,35,35,19,193,16,240,201,0 
220 LET 5=0 RESTORE 210 
230 FOR ft=60100 TO 60125 
240 RERD B: POKE ft,B LET S=S+B 
250 NEXT ft: IF S<>2192-THEN PRI 
NT "ERROR EN DftTftS": STOP 
260 REM 

270 LET ft=USR 60000 
280 POKE 23658,8 
290 REM 

300 REM * DftTftS GRflFICOS * 

310 REM 

320 DftTft 254,254,254,0,239,239, 
239,0 

330 DftTft 224,120,60,127,248,252 
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que definen los caracteres, lo 
desplaza 1 bit a la derecha y 
se realiza un OR con el dato 
initial, de bsta forma tenemos 
un carbcter con el doble de 
grosor. La rutina Neva una 
comprobacion que en caso de 
introducir mal las lineas DA¬ 
TA te lo indicarb. Si ocurre, 
repasa las lineas 100-130. Se- 
guidamente, en las lineas 
300-400 se cambian las defini- 
ciones de las letras a-j por las 
de nuestros grbficos. 

Esto se ha hecho de bsta 
manera para poder distinguir 
y reconocer cada grbfico en 
pantalla usando la instruccibn 
SCREEN$ (x, y). Si hubibse- 
mos utilizado los UDGs nor- 
males bsta instruccibn nos 
devolveria siempre la cadena 
vacia, en vez del cbdigo del 
carbcter que nos proporciona 
el mbtodo usado. 

Al introducir los grbficos se 
realiza otro "CHECKSUM", 
que en caso de informar de 
un error tendr£s que repasar 
las lineas 320-410. 



450-620. Presentacibn. Se 
recupera en la variable R el 
valor del record, almacenado 
en las posiciones de memoria 
60200-1. Tras un efecto sono- 
ro se imprime el titulo conte- 
nido en una ventana. 

Mas tarde se imprime el 
resto del texto, empleando 
una subrutina de centrado. 
Se espera la pulsacibn de una 
tecla para dar paso al juego. 
La espera se realiza con PAU¬ 
SE 0, precedido de un PAU¬ 
SE 15 para anular cualquier 
pulsacibn involuntaria previa, 
dibuja el escenario, entrando 


,127,63 

340 DATA 0,0,0,0,192,60,255,24-0 
350 DOTA 52,126,255,127,24.6,255 

1110 , t>0 

360 DAT*4 60,36,60,153,126,60,36 
, 102 

370 DRTh 255,153,137,153,255,16 
5,129,255 

380 DATA 60,66,189,181,165,139, 
6d , 60 

390 DRTR 255,255,255,231,231,25 
5,24-8,255 

4-00 DRTR 34,8,66,16,9,80,2,16 
410 DRTR 60,94,191,191,255,129, 
66,36 

420 LET 5=0: RESTORE 320 
430 FOR R =0 TO 79 RERD B POKE 
65089+A,B LET 5=S+B: NEXT R 
440 IF 50 11077 THEN PRINT ‘ERR 
OR EN DATAS": STOP 
450 REM 

460 REM i PRESENTRCION i 
470 REM 

4.80 LET R=PEEK 60200+256+PEEK 6 

0201 

490 FOR R=0 TO 60 STEP 2 
500 BEEP .01,R: NEXT R 
510 CLS 

528 INK 2- PRPER 7: PRINT "aaaa 
aaaaaaaaaaadaadaaaaaaaaaaaaa" 

530 FOR R =1 TO 5: PRINT RT R,0; 

a M : NEXT R 

540 print "aaaaaaaaaaaaaaaaaaaa 

aaaaaaaaaaaa" 

550 PRINT FLASH 1; INK 0;AT 3,9 
;- XRDOM-FORCE M 
560 PRPER 0: INK 7 
570 PRINT RT 9,0 LET A$= 1987 
MUNDO SPECTRUM**: GO SUB 2030 LE 
T A*="AUTOR RNGEL GRRCIR DELGRD 
O**: GO SUB 2030: LET A$="CONTROL 
ES Q.A.O.P.SPACE" GO SUB 2030 
LET A$="PULSE UNR TECLR PRRR SE 
GUIR": GO SUB 2030 PAUSE 15 PR 
USE 0: BEEP .01,30 
580 REM 
590 CLS 
600 LET P=0 
610 LET U=0 
620 LET UU=5 
630 REM 

640 REM * FRSE 1 * 

650 REM 

660 REM * PRISAJE * 

670 REM 

680 LET F = 1: GO SUB 2130 
690 LET UU=UU-1: IF UU=0 THEN G 
O TO 990 

700 CLS °RINT PAPER 4;RT 17,0 
, xxiiiii. iiiiiiiiiiiiiiiiiiii 
iiiiiiiiiiiiiiiiiiiiiiiiissiiiii 

i i " 

^10 GO SUB 2070 

720 PRINT FLASH 1; PRPER 1; INK 
7; RT 17,15;"f^" 

730 FOR R=0 TO 255 STEP 8 PLOT 
INK RND*7;A,50+RND*125: NEXT R 

740 REM 

750 REM * INICIflLIZR * 

760 REM 

770 LET NX =0: LET NA=0: LET PX = 
0: LET PY =0 
780 REM 

790 REM * BUGLE PRINCIPAL * 

800 REM 
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asi en un bucle que se va a re- 
petir W veces, y que va a ser- 
vir para conseguir las vidas a 
usar durante el juego. 

En la llnea 730 se dibujan 
las estrellas. 

En las llneas 790-920 se en- 
cuentra el bucle principal de 
esta fase, donde se hace lo 
siguiente: 

— Borramos nuestra nave 
e incrementamos su coorde- 
nada. A continuacibn se im- 
prime. 

— Si no hay paracaidista, 
se activa segiin una condicibn 
al azar para que exista, inicia- 
lizando sus coordenadas. 

— En la linea 850 compro- 
bamos de nuevo si existe el 
paracaidista. Si es asi, se 
mueve segiin la accibn de las 

Por ultimo antes de pasar a 
la fase 1, se inicializa P (pun- 
tos) a 0, V (vidas) a 0 y VV (vi¬ 
das posibles) con 5. 

630-980. Fase 1. Se infor¬ 
ma al jugador de la fase en la 
que estb. A continuacibn se 


810 PRINT PT 2,NX;" ": l_ET NX 
=NX + 1 IF NX>29 THEN LET NX=8 
820 PRINT PT 2,NX; INK RND*7;"i 
•*; INK 5; "be" 

830 BEEP .001,10: BEEP .081,20 
84-0 IF NP =0 THEN IF RND>.9 THEN 
IF NX >4- PND NX <26 THEN LET NP = 1 
: LET PX =3: LET PY=NX+1 
850 IF NP =0 THEN BEEP .01,15: G 
O TO 810 

860 PRINT PT PX,PY;" ";PT PX + 1, 
PY; " " 

870 IF INKEY$="Q" THEN LET PY =P 
Y-l: IF PY<1 THEN LET PY=30 
880 IF INKEY$="P" THEN LET PY=P 
Y + l: IF PY >30 THEN LET PY=1 
890 LET PX=PX+1 

900 PRINT INK 3;PT PX,PY;"J"; I 
NK 7;PT PX+1,PY;"e"; 

910 IF PX >14- THEN GO TO 960 
920 GO TO 810 
930 REM 

94-0 REH * PTERRIZPJE * 

950 REH 

960 IF PY = 15 OR PY =16 OR PY = 17 
THEN LET P=P+125 PRINT PT 15,PY 
LET U=U+1: BEEP .05,5: BEE 
P .1,25: PPU5E 5 PPU5E 60 GO T 
O 690 

970 FOR B=1 TO 5: FOR P=1 TO 7: 
PRINT INK P;PT PX+1,PY-1; "iii"; 
PT PX,PY-1; "iii": BEEP .01,P: NE 
XT P: NEXT B 

980 PPU5E 5: PPUSE 60 GO TO 69 


990 REM 

1000 REH * FP5E 2 * 

1010 REM 

1020 IF V=0 THEN GO TO 2230 
1030 LET F=2: -0 SUB 2130 

104-0 REH 

1050 REM * PPI5PJE * 

1060 REM 

1070 CLS GO SUB 2070: PRINT IN 
K 5;PT 16,0,"9999999999999999999 
9999999999999”;: FOR P=1 TO 2: P 
RINT INK 2;"aaaaaaaaaaaaaaadaaaa 
aaaaaaaaaaaa" NEXT p 
1030 PRINT PT 0,0; FOR P=3 TO 1 
STEP -1 PRINT PPPER P, : 

NEXT P: PPPER 8 
1090 REM 

1100 REM * INICIPLIZP * 

1110 REM 

1120 LET NX=8: LET C=0 
1130 REM 

114-0 REM * BUCLE PRINCIPPL * 

1150 REM 

1160 PRINT PT NX,4-;" 

1170 IF INKEY*="0" THEN LET NX=N 
X-l: IF NX <1 THEN GO TO 1388 
1180 IF INKEY$="P" THEN LET NX=N 
X+l: IF NX>15 THEN GO TO 1308 
1190 IF SCREENS <NX,7)="d" THEN 
GO TO 1300 

1200 IF SCREENS <NX,5)="d" THEN 
GO TO 1300 

1210 IF SCREENS <NX,6)="d" THEN 
GO TO 1380 

1220 PRINT PT NX,5;”i be ": IF C<1 
80 THEN PRINT PT RND*15,30;"d" 
1230 BEEP .003,10: BEEP .083,15: 
BEEP .003,20 

124-0 LET P=P+5: LET C=C + 1: IF C> 
200 THEN GO TO 134-0 


teclas, si no vuelve a repetir 
el bucle. 

— Si el paracaidista supe- 
ra la coordenada x=14, en- 
tonces se pasa a comprobar 
si estb en la plataforma o fue- 
ra de ella, actubndose en con- 
secuencia. En el primer caso, 
suma puntos y se pasa al si¬ 
guiente. En el segundo caso, 
se imprime una explosibn y se 
continua con el siguiente has- 
ta que no queden mbs. 

Si las vidas son mayores 
que cero se pasa a la FASE 2. 

990-1330. FASE 2: Se in¬ 
forma que estamos en la fase 
2. Luego en las llneas 




PUNTOS: O 

O 111 
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1050-1090 se dibuja el escena- 
rio. A continuacibn se inicia- 
lizan dos variables; nuestra 
coordenada X, llamada NX, y 
el contador de zona recorrida 


1250 LET R =USR 60100 
1260 GO TO 1160 
1270 REM 

1280 REM * EXPLOSION i 
1290 REM 

1300 PRINT RT NX,5, FLR5M 1,"iii 
: FOR R = 1 TO 50 BEEP .01,RND* 
30 NEXT R 

1310 LET UsU-1: GO SUB 2070 
1320 IF U<1 TMEN GO TO 2230 
1330 GO TO 1070 
1340 REM 

1350 REM i FRSE 3 i 
1360 REM 

1370 PRPER 0 LET F=3 GO SUB 21 

30 

1380 REM 

1390 REM * ESCENRRIO * 

1400 REM 

1410 print INK 2;RT 0,0, "aaaaaaa 
aaaaaaaaaaaaaaaaaaaaaaaaa" 

1420 LET CD =0 GO SUB 2070 
1430 FOR R=1 TO 18 

1440 FOR B =0 TO 31 STEP 5: PRINT 
INK 2;RT R,B; M a“: NEXT B PRINT 
INK 2;RT R,31; M a M ; 

1450 NEXT R 

1460 FOR R=5 TO 30 STEP 5: FOR B 
=1 TO 3: PRINT RT 1 + INT (RNO*16) 
NEXT B: NEXT R 
1470 LET R$ = "g •’: INK 5 
1480 FOR R=i TO 20: GO SUB 2170: 
NEXT R 

1490 LET R$ = "d '*: INK 4 
1500 FOR R = 1 TO 10 GO SUB 2170 
NEXT R 

1510 LET R$="h": INK 6 
1520 FOR R=1 TO 5: GO SUB 2170 
NEXT R 
1530 REM 

1540 REM * INICIRLIZR * 

1550 REM 

1560 INK 7. LET R$ = “f: GO SUB 2 
170: LET XM=X: LET YM=Y 
1570 LET R$="e”: GO SUB 2170 
1580 LET XB=X: LET YB=Y 
1590 REM 

1600 REM * BUGLE PRINCIPRL * 

1610 REM 

1620 LET MX =XM: LET MY =YM 

1630 LET XM=XM+(1 RND XM<X)-(1 R 

ND XM>X) 

1640 LET YM=YM+(1 RND YM<Y»-(1 R 
ND YM>Y) 

1650 IF SCREENS iXM,YM><>" " TME 
N LET YM=NY 

1660 IF SCREEN $ <XM,YM)<>*' “ THE 

N LET XM=MX 

1670 IF INKEY$="©" THEN LET X=X- 


Entramos asi en el bucle 
principal de bsta fase, que re- 
coge las Ifneas 1140-1260 
donde hacemos lo siguiente: 

— Borrar nuestra nave. 

— Mover la nave segun las 
teclas pulsadas. 

— Comprobar si choca- 
mos, saltando a la linea 1300 
en caso afirmativo. 

Imprimir nuestra nave en 
las nuevas coordenadas. Se 
imprime tambibn un asteroide 
y se realizan unos sonidos. 

— Se incrementan los 
puntos y el contador del pai- 
saje. Si bste ultimo es mayor 
que 200 se pasa a la FASE 3. 

— A continuacibn se llama 
a la rutina en C/M que hace 
el SCROLL y se repite el bu¬ 
cle. 

En las lineas 1280-1330 es- 
tb la rutina que hace estallar 


nuestra nave, en caso de cho- 
que, y que nos resta una vida. 

1350-1790. FASE 3. Esta es 
la ultima fase. Aqul hemos de 
recoger varios diskettes para 
completar nuestro objetivo. 
Las partes de que consta son: 

1350-1380. Se informa de la 
fase 3. 

1390-1530. Dibujo del esce- 
nario. Se dibujan las paredes, 
luego las puertas que las co- 
munican y por ultimo se si- 
tuan todos los objetos que 
habrb en pantalla usando una 
subrutina que los imprime al 
azar en la misma, asegurbn- 


THEN LET Y=Y 


1710 PRINT RT XB,YB; M **;RT MX , MY 
**; RT XM, YM; " f *’ 

1720 LET R$=5CREEN$ (X,Y) 

1730 IF fl$="a M THEN LET X=XB LE 
T Y =YB 

1740 IF R$="d" OR OR R$=" 

9" THEN FOR fl=7 TO 0 STEP -1 BE 
EP .01,fl: PRINT INK fl;RT X,Y; M i“ 
: PRUSE 2: NEXT R: GO TO 1820 
1750 IF R$='*h*' THEN FOR R=0 TO 6 
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dose de que no hay ninguno 
debajo. 

1540-1590. Se inicializan las 
coordenadas del vigilante y 
las de nuestro personaje. 

1600-1790. Bucle principal 
de la fase 3. Aqui aparecen 
los siguientes pasos: 

— Movimiento del vigilan¬ 
te, siempre en direccion hacia 
nosostros. Comprobando si 
choca contra las paredes. 

— Luego se lee el teclado. 

— Se imprime el malo. 

— Se obtiene el car^cter 
sobre el que se situard nues¬ 
tro protagonista, y se com- 
prueba si se trata de un mu- 
ro, ladrillo, roca o diskette. 

— Ahora se imprime nues¬ 
tro mufieco, repittendose el 
bucle. 

1800-1830. Rutina de p6rdi- 
da de vida de la FASE 3. 

1840-1990. Rutina de con- 
seguido. Se comprueba si he- 
mos logrado record y se 
aguarda la decisidn de volver 
a jugar o de abandonar el 
juego. 

A partir de la linea 2000 es- 


0 STEP 2: BEEP .003,ft: NEXT R. L 
ET P=P+275: GO SUB 2030: LET CD= 
CD + 1 IF CD =5 THEN GO TO 134-0 
1760 PRINT RT X,Y;“e" 

1770 LET XB=X: LET YB=Y 
1780 GO TO 1620 
1790 REM 

1300 REM * PIERDE UIDR * 

1810 REM 

1820 LET U =U-1: IF U<1 THEN GO T 
O 2230 

1830 GO SUB 2080 LET GO 

SUB 2170 GO TO 1760 
184-0 REM 

1850 REM * CONSEGUIDO * 

1860 REM 
1870 CLS 

1880 PRINT RT 4-, 0 

1890 LET R$=“!!! LO CONSEGUISTE 
!!!“: LET P=P-f5000 GO SUB 2030 
1900 PRINT : PRINT LET R$ = '*PUN 
TOS:"+STR$ P: GO SUB 2030 
1910 LET R$=“RECORD:“+STR$ R 
1920 IF P>R TMEN LET R=P: LET R* 
=•’!!! NUEUO RECORD i I ! “ 

1930 GO SUB 2030 

194-0 PRINT LET R$="OTRR PRRTID 
R: (S/N) **: GO SUB 2030 
1950 RRNDOMIZE R 

1960 POKE 60200,PEEK 23670 POKE 
60201,PEEK 23671 
1970 IF INKEY$=”S‘* THEN RUN 270 
1980 IF INKEY$="N" THEN RRNDOMIZ 
E USR 0 

1990 GO TO 1970 
2000 REM 

2010 REM * CENTRR TEXTO * 

2020 REM 

2030 PRINT INK 2+RND*5;TRB H6-L 
EN R$/2);R$: PRINT : PRINT RET 

URN 

204-0 REM 

2050 REM * MRRCRDORES * 

2060 REM 

2070 PRINT INK 2;RT 19,0;"dddddd 

aaaaaaaaaaaaaaaaaaaaaaaaaaa 

aaaa aaaaaaa 

aaaaaaaaaaaaaaaaaaaaaaaaaa" 

2080 PRINT INK 6;RT 20,2;"PUNTOS 
“;P;RT 20,21;’"VIDAS: ";U 
2090 RETURN 
2100 REM 

2110 REM * INDICRDOR FRSE * 

2120 REM 

2130 CLS : FOR R=1 TO v . FOR B=1 
TO 7: PRINT RT 11,12; INK B; "Ffl 
SE “;F: BEEP ,005,B: BEEP .005,R 
: NEXT B: PRU5E R. NEXT R: CLS 
RETURN 
21445 REM 

2150 REM * IMPRIME EN X,Y * 

2160 REM 

2170 LET X=1+INT (RND*17): LET Y 
=1♦INT (RND*29) 

2100 Ih oCREEN$ (X,Y) < >“ “ THEN 
GO TO 2170 

2190 PRINT RT X,Y;R$< BEEP .001, 
25: RETURN 
2200 REM 

2210 REM * DESTRUIDO * 

2220 REM 

2230 BEEP 1,0: BEEP 1,-10: CLS : 

PRINT RT 4,0 

2240 LET R$="GRME OUER”: GO SUB 

2030 

2250 GO TO 1900 


t£n las subrutinas que usa el 
programa de un modo gene¬ 
ral. Estas son: 

2000-2040. Rutina que im¬ 
prime el texto centrado. 

2050-2090. Imprime marca- 
dores de la parte inferior. 

2100-2140. Subrutina indi- 
cadora de FASE. 

2150-2200. Imprime al azar 
el car^cter contenido en A$ 
en un lugar vacio de la pan- 
talla. 

2210-2250. Rutina de final. 
Mensaje GAME OVER y salto 
a la Ifnea 1900. 
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JUEGOS 


DYZZY 

COMENTARIO 

DYZZY es un juego divertido cuyo 
protagonista es un simpbtico "huevo" que trata 
de destruir al mago ZAKS haciendo una pbcima 
mbgica en un caldero al que habrb de arrojar 
todos los ingredientes que vaya recogiendo por 
las pantallas del juego. 

Los grbficos de 6ste juego son muy variados 
y coloristas y los movlmientos de DYZZY y del 
resto de figuras son excelentes. La 
presentacibn del juego estb muy cuidada e 
incorpora una excelente melodia. Todos los 
escenarios han sido cuidados y ofrecen 
multitud de detalles simpbticos, muchos de 
ellos diffciles de programar. 

La aventura en si no es excesivamente 





DYZZY estaba explorando el bosque encantado en 
busca de flores, bayas y un palo con el que hacerse un 
bastbn. cuando descubrib una misteriosa Ibpida. 
Limpiando el lodo que la cubria le fue posible leer la 
siguiente inscripcibn: 

La Pbcima Avawiffover 
DYZZY recordb que su padre le habia hablado de 
aquella pbcima "es la unica manera de liberar a nuestro 
pais destruyendo al malvado brujo ZAKS". DYZZY 
TEMBLO ASUSTADO cuando recordb 6stas palabras. 

ZAKS trajo el miedo al pueblo, con sus hechizos que 
hacen que la gente se envejezca, vuelve ciegos a los 
hombres y hace que llueva los domingos por la tarde a la 
hora del CRICKET. DYZZY estaba decidido a poner fin a 
todo esto y convertirse en el heroe del lugar. 


llfcHA -11 J 


original pero la trama del juego es entretenida y 
averiguar los diferentes trucos para pasar cada 
una de las dificultades que se nos presentan 
llega a convertirse en una cuestibn de 
"honrilla". por lo que es dificil separarse del 
SPECTRUM sin haber llegado un poco mbs 
lejos que la vez anterior. 
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Juegos 


Hasta ahora se ha mantenido el 
equilibrio politico y ha habido paz 
por todo Berlon. Pero a trav6s de 
una puerta inter-dimensional en las 
mazmorras del matefico nigromante 
Acamantor, han aparecido ahora 
cuatro principes endemoniados. 

Ha recaido sobre ti, el ultimo de los 
Grandes Druidas, la tarea de 
destruir a los principes y de cerrar la 
puerta. 

Los principes endemoniados andan 
acechando por las tenebrosas 
profundidades de la mazmorra, y 
solamente pueden destruirse por 
medio de tu poderoso hechizo, que 
en este caso debe de transportarse 
por medio del tacto. 

Por toda la mazmorra encontrards 
areas que contienen hechizos de 
una fuerza formidable para ayudarte 
en tu busqueda y Pentogramas de 
vida, que revitalizardn totalmente tu 
esencia de vida. Usa estos recursos 
con prudencia a fin de sobrevivir el 
ataque constante de los monstruos 
dimensionales infernales y poder 
hacer frente a los principes 
endemoniados. 

Triunfa y alcanzarAs el alto puesto 
de Maestro de la luz, el mayor de 
todos los Druidas. Fracasa y no 
ser£s m6s que un mediocre ingenio 
y tu alma cautiva se reunird con los 
numerosos fantasmas de los que te 
han precedido, perdidas en las 
mazmorras de Acamantor. 


DRUID 

DRO-SOFT 


DRUID es un juego en el que 
tendrAs que recorrer un 
intrincado laberinto buscando 
los hechizos que te ayuden a 
destruir a las fuerzas del mal. 
La presentacidn es muy 
espectacular, ya que junto a 
un buen dibujo de portada, al 
mismo tiempo que al efectuar 
la carga del programa, 
podemos escuchar una 
melodia muy bien adaptada 
para el ordenador. 

DRUID tiene una gran 
abundancia de grdficos muy 
elaborados, sin embargo el 


espacio "util" donde se 
desarrolla el juego es algo 
reducido. En 61. el laberinto se 
desplaza mediante un 
"SCROLL" en cuatro sentidos 
muy suave. 

Los sonidos de ambiente. los 
movimientos y la rapidez de 
respuesta son otra buena 
caracteristica de DRUID. 

La dificultad no es muy 
elevada pero hay que estar 
muy atento a los multiples 
enemigos que van apareciendo 
en pantalla a lo largo de la 
aventura. 
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dificultad de bsta fase no es muy ele- 
vado y basta ir encontrando los dife- 
rentes objetos que aumentan nuestra 
energia y esquivando a los enemigos 
para pasar por el laberinto de pantallas 
que forman la casa. Una vez fuera de 
ella y con las Haves de la moto en la 
mano, se pasa a la segunda fase don- 
de hay que ir adelantando los coches 
que vamos alcanzando. 6sta etapa es 
bastante dificil de superar y en ella po- 
demos apreciar un desplazamiento o 
scroll rdpido y suave, y el movimiento 
de la moto tambibn muy conseguido. 

La tercera fase comienza al llegar al 
instituto; otro laberinto de pantallas si¬ 
milar al de la casa, donde hay que 
econtrar el aula del examen. Una vez 
en ella, y si llevamos los objetos perti- 
nentes, comienza la cuarta y ultima fa¬ 
se: el examen, que consta de 10 difi- 
ciles preguntas a las que hay que res¬ 
ponder afirmativa o negativamente. 

En general los grdficos estdn muy 
elaborados aunque no hay una gran 
variedad de enemigos. 

La pantalla del juego presenta un 
simpdtico dibujo acompafiado de una 
melodia alegre y pegadiza. 

La idea de la aventura es muy origi¬ 
nal aunque utilice el cldsico recurso de 
las pantallas en forma de laberinto. 

Como hemos dicho, la melodia ini- 
cial es muy buena y durante el resto 
del juego algunos sonidos van ambien- 
tando ligeramente las distintas situa- 
ciones. M 


,Ahrrrg!, ,qu6 dolor de cabe/a 1 . No 
vuefvo a dar otra fiesta hasta que no pa 
sen das meses. JomA! si hoy tengo un 
examen de evaluacton a las 10; y todavia 
aqui 

Realmente FUNKY PUNKY to tiene di 
flea. Ha de ir al instituto para reafczar el 
examen que tiene a las 10 de la manana 
Son las 8 y todavia tiene que recoger to- 
das sus cosas revueltas entre los desper 
dioas de la fiesta que tuvo lugar en su 
apariamento la noche anterior 

Cuando las reuna. ha de coger su cicto- 
motor e ir al instituto atravesando las pe 
ligrosM canes de la ciudod. Ilonas de con 
ductores medio dorrmdos que se dmgen a 
su trabajo 

Una ve/ a*. deberd encontrar el aula 
donde se va a realaar el examen y afron 
tar con toda resignacton las die/ pregun 
tas que deodirAn su aptitud para superar 
el curso. 

Para reab/ar el examen serd necesano 
que Iteve su pluma y la calculadora derv 
tifica. 

Por supuesto, no ha desayunado y pa 
ra mantener sus energies a un alto ntvel 
deberd tomar los DONUTS y beber los bo 
t©limes que encuentre. Un cigarri»o des 
pues de la comida tampoco le aentard 
mal. 

Los elect os de la resaca hardn que vea 
bichos extraAos que tendra que evrtar si 
desea continuar sus andan/as. 

Para ver el ttempo que le resta hasta la 
hora del examen, deberd recoger el retoj 
Y para poder abrir el candado de la moto 
tendrd que usar su lave. 

iDeprisa!, queda poco twmpo y el ca- 
mmo hasta el instituto es largo. 


FUNKY PUNKY es una aventura en 
la que su protagonista sale de su ha- 
bitacibn para acudir a un examen. Pa¬ 
ra ello deberd recoger una serie de ob¬ 
jetos que hay dispersos por las diferen- 
tes habitaciones de la casa y que le son 
necesarios para coger su moto y po¬ 
der acudir al instituto, sorteando el trb- 
fico, para realizar su examen. 

Podemos dividir 6ste juego en cua- 
tro partes: la primera transcurre den- 
tro de la casa y en ella podemos con- 
templar una gran variedad de grdficos 
muy vistosos y elaborados, el nivel de 
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El objeto del juego os absorber 
al "Sentinel” y sustituirlo como 
regwfor del panorama. Una vez lo- 
grado, el jugAdor puede supres- 
paciar a un nuevo mundo y tratar 
de lograrlo de nuevo. 

Una vez que se haya insertado 
el cassette con el juego, aparece 
rA el titulo en la pantalla. Al pul¬ 
sar cualquier tecla se le pedirA 
que inscriba un numero de pano 
rama. del 0000 a 9999. 

Una vez mscrito el numero de 
panorama y pulsar retorno. se le 
pedirA que marque un numero de 
clave de 8 cifras. al menos que 
haya elegido panorama 0000, que 
no to requiere. 

Pasados unos segundos. apa 
recerA la superficie panorArnica. 
El Sentinel y los Sentries perma- 
necerAn inactivos hasta que el ju- 
gador gaste o absorba energia. 
Esto le permitirA mirar alrededor 
y plantear su ataque al Sentinel 

Una vez activados, el Sentinel 
y los Sentries giran despacio, 
barriendo el panorama, buscando 
cuadros que contienen mAs de 1 
untdad de energia Si pueden ver 
con claridad uno de estos cua 
dros. el Sentinel/Sentry reducirA 
la engergiA a 1 unidad, absorbien 
do 1 unidad a la vez y crearvdo un 
Arbol al azar en el panorama. De 
esta forma, el robot se convierte 
en bloque y el bloque se convier 
te en Arbol 

Se absorbe y se crean cosas, 
haciendo girar las miras y cen- 
trAndolas en la superficie del cua- 
dro bajo el objeto a ser absorbi 
do/creado. Sin embargo los bio- 
ques actuan como extenston de 
la superficie del cuadro, y las mi 
ras deberan ser dirigidas al costa- 
do del bloque. se pueden apilar 
los btoques y colocarse cosas so 
bre ellos 

La energia disponible aparece 
mostrada en la parte superior iz 
quierda de la pantalla en forma de 
iconos de robot, bloque y Arbol 
Un robot de color (no azul) vale 
por 15 umdades de energia 

Para moverse alrededor del pa 
norama, se debe crear un robot y 
entonces. con las mairas aim en 
cendidas. pulsese la tecla de 
transferencia. Asi se pasarA al 
nuevo robot, de cara al antiguo 
robot, que puede ahora ser ab 
sorbido El indicador en la parte 
superior derecha de la pantalla es 
el de advertencia de barndo. Si le 
localize un Sentinel/Sentry, el in 
dicador aparecerA lleno de motas 
Tiene aproximadamente 5 segun 
dos para desaparecer de vista an 
tes de que se le agote la energia. 

1 pun to a la vez. Una vez agota 
das toda la energia. queda absor 
bido totalmente y acaba la ju 
gada 

El volumen de energia total en 
el panorama permanece constan 
te. de forma que si se absorbe 1 
unidad de su energia. se coloca 
rA al azar un Arbol en el pa 
norama. 

Si el indicador de advertencia 
de barrido sdio se encuentra me 
dio lleno de motas. esto sigmfica 
rA que el Sentinel / Sentry puede 
verle pero no puede ver el cuadro 
en el que permanece usted situa 
do 



THE 

SENTINEL 


SENTINEL 

SENTINEL es un 
juego sobrecogedor 
tanto por su temdtica 
como por los desola- 
dores escenarios en 
los que transcurre la 
accibn. 

Podriamos calificar 
a SENTINEL como un 
simulador de una rea¬ 
lidad future: el con¬ 
trol de un robot que 
nos trasmite la visi6n 
de otro mundo a tra- 
v6s de un monitor de 
video. 

Los ESCENARIOS 
(10.000 en total) repre- 
senta diferentes caras 
de un PLANETA cuyo 
paisaje es un enjam- 
bre de figuras geome- 
tricas. 

Hemos de descubrir- 
nos ante el mbtodo de 
elaboracibn de los 
grbficos, asi como 
tambibn es de desta- 
car la originalidad del 
tema y su ejecucibn. 

La pantalla de pre- 
sentacion y los soni- 
dos que amenizan y 
dan ambiente al juego 
tambibn tienen una 
gran calidad. 

SENTINEL es un 
juego que puede pare- 
cer en un principio 
complicado de mane- 
jar, no s6lo por el nu¬ 
mero de teclas que 
utiliza sino por la can- 
tidad de situaciones y 
posibilidades que 
ofrece; pero una vez 
conocido su manejo 
es apasionante. 

Los movimientos 
son algo lentos, pero 
esto es totalmente 
disculpable dada la 
complejidad que en- 
trafia mover en panta¬ 
lla unos paisajes tan 
elaborados. 
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HISTORIA 


Los juegos de "simu- 
lacibn" entranan a la ho- 
ra de programarlos una. 
dificultad superior a los 
dembs dado que necesi- 
lan ajustarse lo mbs po- 
sible a la realidad que si- 
mulan, no basta con 
que el juego funcione 
bien y sea divertido sino 
que adembs debe pare- 
cer real, y esto implica 
un duro trabajo. 

Fernando Martin Bas¬ 
ket Master cumple per* 
fectamente todo lo exi¬ 
gible a un juego de si- 


mulaci6n, todos sus de- 
talles estbn cuidadosa- 
mente estudiados para 
conseguir un juego exci- 
tante y divertido por su 
"realismo". 

En la pantalla de pre- 
sentacibn aparece una 
simpbtica caricatura del 
famoso jugador ligera- 
mente animada y con 
una buena melodia. El 
resto de somdos del jue¬ 
go estbn destinados a 
proporcionarle unos 
adecuados efectos am- 
bientales. Los grbficos 


como ya hemos mencio- 
nado estbn muy elabo- 
rados y consideran mul¬ 
tiples posturas de los ju- 
gadores asi como la agi- 
tacibn del publico en ca- 
da canasta. 

El nivel de dificultad 
puede ser seleccionado 
por el jugador pudiendo 
enfrentarse a un segun- 
do jugador o bien al or- 
denador que hace las 
veces de Fernando Mar- 


Cuando saigas a la cancha 
le encontrarAs nervioso. 
preocupado, con deseos de 
hacec un buen pantfo y con 
miedo de faHar los tiros de 
ires puntos 

imagina que. ademas, t«- 
nes que enlrentarte a Fernan 
do Martin, a un autAnteo nu- 
mero uno. que no va a per 
donane 

Todos tus muscutos se po 
nen en tens*6n, la adrenalina 
lluye por tus venas v tu cat 
bro debe avenguar cuAles son 
los puntos dAtxies de tu ad 
versano 

El baloncesto es & depone 
que major confuga el desarro 
Ik) fisico del ser humano. se- 
gun un ordenadoi especializa- 
do en depones del istituto 
Tecno*0g»co de Masachusets 

Fernando Martin Basket 
Master es una prueba dara de 
que tamb^n el baloncesto 
puede desarrollar la mente 
















£Jr 






JUEGOS 






Completa cada recorri- 
do en el plazo de tiempo 
disponible sin consumir 
todo el combustible. Usa 
los mandos de izquier- 
da/derecha para dirigirte 
hasta la ATV y luego sal- 
ta a 61 mirando en el mis- 
mo sentido y comienza el 
recorrido. Usa arriba/a- 
bajo para acelerar/frenar. 
Salta para lograr remonte 
adicional cuando subas 
por una rampa y tambibn 
para superar orillas certa- 
das sin chocar. Para as¬ 
cender por pendientes 
pronunciadas, wheelie 
lentamente hacia ellas y 
salta repetidamente para 
subir. 

Si chocas y sales des- 
pedido, salta para levan- 
tarte y luego montarte en 
tu ATV. 


ATV (ALL 

TERRAIN VEHICLE) 

"Vehiculo todo 
terreno" es un juego 
de simulacibn en el 
que debes ir 
superando cada una 
de sus distintas 
etapas sin rebasar el 
tiempo m6ximo 
permitido. el reto es 
emocionante y una 
vez se empieza a 
jugar cuesta trabajo 
dejarlo. 

La pantalla de 
portada presenta un 
buen dibujo durante 
la carga del 
programa a la que 
sigue una buena 
melodia muy bien 
adaptada al 
SPECTRUM. 

Los grbficos son 
buenos y variados y 
los movimientos del 
conductor y su 



vehiculo son suaves 
y bgiles, sin embargo 
la superficie "util" en 
pantalla, es decir, la 
ventana en la que se 
desarrolla el juego es 
muy reducida. 

ATV presenta 
tambi6n la 
posibilidad de 
establecer una 
competicibn con un 
segundo jugador. 

Los sonidos son 
adecuados y cada 
vez que se supera 
una etapa cambia el 
paisaje y el nombre 
de la pantalla se 
imprime en grandes 
caracteres. 
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MUROS GALACTICOS 


Como controlador es- 
pacial de la frontera elec- 
tromecbnica entre los dos 
polos de atraccibn de los 
planetas XENOS y COXE- 
NOS, has de impedir que 
las naves espaciales y los 
satblites mbviles choquen 
contra estas barreras. 

Para impedir que coli- 
sionen puedes abrir un 
hueco en cada barrera 
empleando las teclas: 


Q. Abre barrera de la 
izquierda. 

P. Abre barrera de la 
derecha. 


COMENTARIO DEL 
PROGRAMA 


En 6ste programa el 
elemento fundamental 
para el bxito es sincroni- 
zar bien los movimientos 
de la nave y el satblite con 
el de apertura de las 
barreras. 

10-220. Inicializacibn y 
presentacibn. Se fija cur¬ 
sor en minusculas. Se re- 
definen los UDGs. y se fi- 
jan los colores POKEando 
directamente en las varia¬ 
bles del sistema. Luego 
se irnprime el tituio y tias 
una pausa comienza el 
juego. 

230-350. Dibuja el pai- 
saje. Fija los colores. Im- 
prime los marcadores y 
las estrellas. 

360-410. Dibujo de los 


muros. Se realizan las 
dos barreras. 

420-550. Se inicializan 
las variables que se van a 
usar durante el juego. 

560-860. Bucle princi¬ 
pal del juego. Se lee el te 
clado. Se imprimen las 
barreras y a continuacibn 
lo dos objetos mbviles. 
Las comprobaciones son 
hechas por medio del co¬ 
lor, con la funcibn ATTR. 

870-960. Rutina de 
choque del OVNI con la 
barrera. 

970-1020. Rutina de 
choque del planeta con la 
barrera. 

1030-1060. Subrutina 
que incrementa e impri- 
me los puntos. 

1070-1250. Final por 
fallos. Se imprimen los 



mensajes correspondien- 
tes, se comprueba si ba- 
timos el recr i y se toca 
una corta meiodia. 

1260-1340. Meiodia de 
R.I.P. 

1350-1460. Esta es la 
subrutina mbs curiosa del 
programa, irnprime una 
frase en el interior de un 
recuadro (ajustado por 
supuesto al tamafto de la 
frase con un color al azar. 

1470-1610. Redefini- 
cibn de los U.D.G.s. me- 
diante un bucle, se leen 
las sentencias datas de 
las lineas 1560-1610, y se 
almacena el valor leido en 
la zona de los U.D.G.s. 



REM ******************** 

REM * MUROS GRLRCTICOS * 

30 REM ******************** 

4-0 REM 

50 REM - FIJR MINUSCULRS - 
50 REM 

70 POKE 23658,0 
80 REM - REDEFINE UGDS - 
90 GO SUB 1500 
100 REM 

110 REM - FIJR COLORES - 
120 REM 

130 POKE 23693,7 
140 BORDER 0 
150 CLS 
160 REM 

170 REM - TJTULG - 
180 REM 

190 PRINT RT 9,0 

200 LET G$="MUROS GRLRCTICOS" 

210 GO SUB 1380 

220 PRUSE 200 

230 REM 

240 REM - DIBUJR PRISRJE - 

250 REM 

260 BORDER 0 

270 PRPER 0 

280 INK 7 

290 CLS 

300 PRINT RT 0,0;" PUNTOS 00 
0 FRLLOS00 

310 REM - IMPRIME ESTRELLRS - 
320 FOR a=1 TO 50 

330 PRINT RT 1+INT (RND*20),INT 
<RND*31); 

340 NEXT a 
350 REM 

350 REM - DIBUJR MUROS - 
370 REM 

380 FOR a=2 TO 21 

390 PRINT RT a , 12; INK 3;"«a";RT 
a,21; INK 6;"fi" 

400 NEXT a 
410 REM 

420 REM -INICIRLIZR URRIRBLES- 

430 REM 

440 LET Xl=10 

450 LET D1=0 

>60 LET X2=10 

^0 LET D2=0 

*00 LET y=0 

490 LET yb=y 

“00 LET 9=500 
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List 


510 LET 2=30 
520 LET Zb=Z 
530 LET Vi=0 
540 LET pu-0 
550 REH 

560 REH - BUCLE PRIMCIPRL - 
570 REM 

580 IF D1=0 THEN IF INKEY$="q” 
THEN LET Dl = -1 

590 IF D1=-1 THEN PRINT RT 2+X1 
*12;“ “;RT 21-X1,12;“ “ 

600 IF D1=1 THEN PRINT RT 24X1, 
12, INK 3; “fl",RT 21-X1,12; INK 3 

610 LET X1=X14D1 
620 IF XI<1 THEN LET Dl=l 
630 IF XI>9 THEN LET D1=0 
640 IF D2=0 ThEH IF INKEY$="p" 
THEN LET D2=-l 

650 IF D2=-l THEN PRINT RT 24X2 
,21; " RT 21-X2,21; “ ** 

660 IF D2=l THEN PRINT RT 24X2, 
21; INK 6; “fi“; RT 21-X2,21; 

670 LET X2=X24D2 

680 IF X2<1 THEN LET D2=l 

690 IF X2 >9 THEN LET D2=0 

700 PRINT RT 10 ,y b; " *';RT 11,y 

710 PRINT INK 2;RT 10,«;“E£“;RT 

ii*y; 

720 LET y b=y 
730 LET y=y4l 

740 IF y >29 THEN LET y=0: GO SU 
B 1030 

750 IF y =15 THEN LET g=1000 
760 IF RTTR (10,y4l)=3 OR RTTR 
(10,y 41) =6 THEN GO SUB 980 
770 IF g=1000 THEN GO SUB 800 
780 IF 9=500 THEN GO TO 580 
790 GO TO 580 

800 PRINT RT 13,2b;“ ";RT 13,Z 
; INK 4; 

810 LET Z b=Z 
820 LET Z =Z-1 

830 IF Z < 0 THEN LET Z =30: GO SU 
B 1030 

840 IF RTTR <13,Z)=3 OR RTTR <1 
3,z)=6 THEN GO TO 898 
850 RETURN 
860 REH 

870 REH - OUNI CHOCR - 
880 REH 

890 PRINT RT 13,Z4l; INK 4;“EE" 

900 BEEP .2,-10 

910 PRINT RT 13 ,Z 41;“ 

920 LET Z =30 

930 LET vi=vi41 

940 PRINT RT 0,27;Vi 

950 IF Vi=8 THEN GO TO 1100 

960 GO TO 850 

970 REH - PLRNETR CHOCR - 

980 PRINT RT 10,y-l; INK 2;“E£” 

;RT 11,y-l;“EE- 

990 BEEP .2,-10 

1000 PRINT RT 10 ,y-l; *' ";RT 11, 

y-i; “ “ 

1010 LET y =0 
1020 GO TO 930 
1030 LET PU =pu410 
1040 PRINT RT 0,12;pu 
1050 BEEP .05.IP 
1060 RETURN 
1070 REH 

1080 REM - FINRL P OR FRLLGS - 


1090 REM 
1100 LET p =pu 
1110 BORDER 0 
1120 POKE 23693,7 
1130 CLS 

1140 PRINT RT 4,0 
1150 LET a $="GRME OVER" 

1160 GO SUB 1380 

1170 LET fl$="TU PUNTURCION "4ST 
R$ <P) 

1180 GO SUB 1380 
1190 GO SUB 1280 

1200 LET R$=“OTRR PRRTIDR: (S/N) 
1210 GO SUB 1380 

1220 IF INKEY$="S" OR INKEY$="s" 
THEN GO TO 260 

1230 IF INKEY$="n" OR INKEY $ = *'N" 
THEN RRNDOHIZE USR 8 
1240 GO TO 1220 
1250 REM 

1260 REM - MELODIR - 
1270 REM 

1280 DRTR .5,-3,.55,-3,.2,-3,.65 

,-3,.5,0,.25,-1,.5,-1,.25,-3,.5, 

-3,.25,-4,.75,-3 

1290 RESTORE 1280 

1300 FOR a =1 TO 11 

1310 RERD aa , aaa 

1320 BEEP aa ,aaa 

1330 NEXT a 

1340 RETURN 

1350 REH 

1360 REH - IHPRIMIR R$ - 
1370 REH 
1380 LET b$ = 


1390 INK 24RND45 

1400 LET C=LEN a$42 

1410 LET b = 16-C/2 

1420 PRINT TRB <b);b$< TO C) 

1430 PRINT TRB (B) INVERSE 

1; PRPER 9;a $, INVERSE 0; 

1440 PRINT TRB <b);b$< TO C) 

1450 PRINT 
1460 RETURN 
1470 REM 

1480 REM - DRTRS U.D.G. - 
1490 REH 

1500 RESTORE 1568 

1510 FOR fl=0 TO 71 

1520 RERD B 

1530 POKE USR “R“4R,B 

1540 NEXT R 

1550 RETURN 

1560 DRTR 254,158,190,250,250,24 
2,254 0 0 

1570 DRTR 255,153,231,153,231,15 
3,255,57 

1580 DRTR 15,62,255,117,63,28,48 
,156,240,124 

1590 DRTR 255,174,252,56,12,170, 
17,164,24 

1600 DRTR 106,149,72,20,3,14,61, 
53,123,91,238,255,192,240,188,22 
0,126,174 

1610 DRTR 223,243,255,249,107,11 
7,61,59,15,3,247,175,110,238,220 
, 188,240,192 
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Este puede ser un pro- 
grama muy util para 
aquellos que poseen gran 
cantidad de cosas sus- 
ceptibles de ser catalo- 
gadas. 

Como su propio nom- 
bre indica su funcion es la 
de servir de fichero flexi- 
ble-multiuso. ^Qub es eso 
de "flexible-multiuso"? 
Pues sencillamente que si 
lo que a uno le interesa es 
disponer de una especie 
de agenda de direcciones 
y telbfonos, puede definir 
el formato de las fichas 
mbs o menos asl: 

Nombre ... (ejemplo 1) 

Direccibn . 

Tlf. 

Si por el contrario, lo 
que necesita es un archi- 
vo de notas, s6lo tiene 
que definir las fichas co- 
mo: 

Curso: .... (ejemplo 2) 

Trimestre: . 

Fisica: . 

Qulmica: . 

Etc. 

Es decir, en este pro- 
grama se pueden definir 
fichas con campos y el 
nombre que se desee, de 
la longitud que se desee 
y en la longitud que que- 
ramos (con el unico tope 
de la memoria del ordena- 
dor, claro estb). 

Cuando se pone en 
marcha el programa hay 
que esperar durante unos 
instantes a que bste car- 
gue en memoria el bloque 
de cbdigo mbquina. Se- 
guidamente preguntarb 
por la cantidad de tbrmi- 
nos o campos de que 
constarb cada ficha. (Si 
siguieramos el ejemplo 1 
responderiamos con el 
numero 3). Despubs irb 


HERO 


3QUEOR CE EICHfl. H 

f* tCHtfl: 2 

PEPITO 

r i c eon . 

C/ PERCE8E 

rt'i ’•pomo . . 

4444444 

»: . POSTAL . 

l 1 l 11 

C.TfiLrtC ION . 

LEP 1 


EN LA MEMORIA CABEN 6S9 FICHAS 1 


FICHA 2 ! 

NOMBRE....: 

OUANTTO , 

OTPECCION. 

C/ ANCHOA 

TELEFONO.. 

SS555 

C . POSTAL. 

22222 

POOL AC ION. 

LEPE TAMBT 



preguntando por el nom¬ 
bre de cada tbrmino, que 
no pod rb exceder de-10 
caracteres, y por la longi¬ 
tud maxima que va a te- 
ner (no hay limitacibn, 
salvo la quf mponga la 
memoria). 

Una vez cumplimenta- 
dos estos requisitos obli- 
gatorios aparece en pan- 
talla el menu principal, 
que consta de 9 opcio- 
nes: 

1.- INTRODUCIR FI¬ 
CHAS 

Al pulsar esta opcion, 
desaparece el menu y se 
indica en la parte superior 
de la pantalla el numero 
de fichas que caben en la 
memoria, asi como el nu¬ 
mero de ficha que se es¬ 
ta introduciendo. 


Cuando se termina de 
escribir una ficha el orde- 
nador pregunta si los da- 
tos son correctos y en ca- 
so de responderse nega- 
tivamente procederia a 


pedir la introduccibn de 
esa ficha nuevamente. 
Para salir de esta opcibn 
basta con pulsar el co- 
mando OUT (el comando 
que esta en la tecla 0, no 
las letras 0, U y T) a la 
pregunta del tbrmino de 
la siguiente ficha. 

2. - CORREGIR FI¬ 
CHAS YA HECHAS: 

Para usar esta opcion 
hay que buscar previa- 
mente la ficha que se de¬ 
sea modificar con la op- 
cibn 3, volver al menu y 
pulsar esta opcibn. 

A la pregunta de ''TER- 
MINO A MODIFICAR?" 
hay que responder con el 
nombre del tbrmino que 
se desea corregir. 

3. - BUSQUEDA DE 
FICHA: 

Supongamos que que- 
remos ver todas las fichas 
que hay en memoria. En- 
tonces nos bastaria con 
responder con la letra S a 
la pregunta "PISTA?". 

Si por el contrario, 
queremos buscar (en el 
caso de que hubibramos 
elegido el formato de fi¬ 
cha del ejemplo 1) todas 
las fichas cuyo nombre 
empiece por ANT, enton- 
ces hariamos: 

PISTA? NOM- 


Para los curiosos, he aqui el listado ensambla- 
dor de las rutinas de borrado, busqueda y orde- 
nacibn alfabbtica de fichas, asi como de la pe- 
queha rutina que "engorda" las letras. 


LD 

HL,15616 

INC 

HL 

LD 

DE,64437 

DEC 

BC 

LD 

DC, 00768 

LD 

A ,C 

LD 

A, (HL) 

OR 

B 

SRA 

A 

JR 

NZ,40969 

OR 

(HL) 

LD 

HL,64181 

LD 

(DE) ,A 

LD 

(23606),HL 

INC 

DE 

RET 
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BRErANT (ENTER) 
y obtendriamos lo que 
deseamos. Si tenemos un 
fichero de libros y quere- 
mos encontrar todos los 
libros de, por ejemplo, 
Cervantes, escribiriamos: 

PISTA? AUTOR: MI¬ 
GUEL DE CERVANTES 

En el caso de que lo 
que busquemos no exis- 
ta, el ordenador respon¬ 
ded con "NO HAY MAS 
FICHAS" y retornad al 
MENU. 

4. - BORRAR FI¬ 
CHAS: 

Esta opcidn es como la 
2. Primero buscamos con 
la opci6n 3 la ficha que 
queremos suprimir, retor- 
namos al menu y pulsa- 
mos esta opcidn. 

5. - ORDENAR AL- 
FABETICAMENTE: 

Esta opcidn ordena al- 
fabdticamente (m£s 
correctamente, ordena 
en funcidn de los cddigos 
ASCII) las fichas en fun- 
ci6n del tdrmino que le 
indiquemos. 

6. - GRABAR FICHE¬ 
RO: 

Se pide un norr.bre (no 
mayor de 8 caracteres) y 
se procede a grabar y ve- 
rificar el fichero en una 
cassette. 

7. - CARGAR FICHE¬ 
RO: 

Como la 6, s6lo se car- 
ga un fichero de una cas¬ 


sette a memoria. jjATEN- 
CIONII, si se intenta car- 
gar un fichero con distin- 
to formato de fichas al 
definido al comenzar el 
programa los resultados 
pueden ser catastrdficos. 

8.- NUEVO TIPO DE 
FICHERO: 

Permite redefinir un 
nuevo formato de fichas 
distinto al definido al co- 
mienzo del programa. En 
realidad esta opcidn hace 
una llamada al inicio del 
programa, por lo que el fi¬ 
chero que hubiera en me¬ 
moria antes de usar esta 
opcidn quedaria inutiliza- 
do. 

9.- IMPRESORA: 

Como su nombre indica 
pasa a impresora las fi¬ 
chas comprendidas entre 
el numero puesto en la 
pregunta "DESDE LA FI¬ 
CHA?" y el indicado en la 
pregunta "HASTA LA FI¬ 
CHA?" inclusive. Si en la 
primera pregunta se con- 
testa con cero, el ordena¬ 
dor listar£ todas las fi¬ 
chas. 

En cualquier momento 
el listado se puede in- 
terrumpir pulsando cual¬ 
quier tecla, con lo que se 
retornarla al menu. 

Si por cualquier motivo 
hubiera un retorno al BA¬ 
SIC, poniendo GO TO 
ME se regmsaria al ME¬ 
NU sin pta. .da de datos. 



Ejemplo de c6mo lista a impresora unas fichas 
dedicadas en este caso a libros y que fueron de- 
finidas del siguiente modo: 


FICHA: l 

TITULO. . . * DON QUIJOTE 

AUTOR.....MIGUEL DE CERUANTES 

EDITORI AL.PLRNETR AGOSTINI 
R/Q....... 1983 


GENERO....NOUELA 


FICHR: 2 

TITULO....HAMLET 


AUTOR.UILLIAM SHAKESPEARE 

EDITORIAL.ANAGRAMA 
A/O.1986 


GENERO.... DRAMA 


FICHA: 3 

TITULO-LA CELESTINA 


AUTOR.FERNANDO DE ROJAS 

EDITORIAL.SEIX BARRAL 

A/Q.1979 

GENERO....NOUELA 


FICHA: 4 

TITULO....LA COLHENA 

AUTOR.CAMILO JOSE CEL A 

EDITORIAL.PRRANINFO 

A/O.1981 

GENERO....NOUELA 


FICHA* 5 

TITULO....ROMANCERO GITANO 

AUTOR.ANTONIO HACHADO 

EDITORIAL.LABOR 

A/O.1965 

GENERO....POESIR 


PROGRAMA FICHERO 


1 REM F1CMEROS8&A.M.G. SOFTWA 
RE 1986 

2 CLEAR UAL "644436": BORDER P 
I/PI: PAPER NOT PI: INK UAL "9“: 

CLS : POKE UAL “23609",UAL “15” 
: PRINT AT UAL "10",NOT PI;"ESPE 
RE UN MOMENTO" 

3 FOR N=PI/PI TO INT CEXP 1): 
READ A$ FOR T=PI/PI TO LEN A$- 

PI/PI STEP UAL "2": LET B=16l(CO 
DE A$(T) -48-7* <A$(T) >"9") ) -f (CODE 
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ASCT + l) -48-7* (R$(T + 1) > "9") ) PO 
KE 23296+(4-194-4 AND N>1)+INT (T/ 
2) , B : NEXT T NEXT N 

4- DRTH "21003D11B5FB0100037EC 
B2FB61213230B79B020F421B5FR22365 
CC9" , "2147RE11E3AD010100EDB0C93A 
BFFE673AC1FEBCF83ABEFE6F3AC2FE47 
3RC3FE5F160019110E5B1ABE20052313 
10F8C91164-003ABEFE6F3ABFFES7197D 
32BEFE7C32BFFE18C6002AC4FE22C6FE 
2RBCFE22D0FE2ABAFE22D2FE2ACAFEED 
4-BC8FE03ED4-3C8FEB7ED42F801000083 
2ACCFEB7ED42FA87FF2AD0FE09562AD2 
FE097EBA28E9F287FF0101002AD0FEED 
5BCEFEB7ED52097EED5BD4FE195677B7 
7AED5BD4FEED527703EBB7ED42FA87FF 
18DA2AC6FEED5BD4FE1922C6FE2AD0FE 
1922D0FE2AD2FE1922D2FEED5BD6FE2A 
C6FE23B7ED52FA4 1FFC31FFF" 

5 RANDOHIZE USR UAL "23296" 
LET HE =UAL "100": LET Z=PI/PI: L 
ET NFI=Z LET BY=URL “256“ POKE 

URL "23658",UAL "8" 

6 LET PI=URL -65216": LET P2= 
URL •65217": LET D1=UAL "65214-" : 

LET D2=URL ~65215" 

7 LET RO=URL "9998": DEF FN R 
(X)=INT (X/BY): DEF FN BiX,Y)=X- 
BYiPEEK Y: DEF FN C(X)^PEEK X+BY 
*PEEK (X+Z) 

30 INPLfT "CUANTOS TERHIN05 MRN 
EJRRR 7 ";T: DIH T$(T,UAL "10"): 
LET NC =NOT PI: DIH H(T) 

40 FOR I=Z TO T: INPUT "NOHBRE 
DEL TERHINO ";(!);":"; LINE E$ 
FOR H=Z TO URL “10"-LEN E$: LET 
E$=E$*" . " : NEXT H: LET T$(I)=E$ 
60 INPUT "NO. DE CARRCTERES DE 
L TERHINO "; (I) ; " : " ; H (I): LET NC 
=NC+H (I) : NEXT I 

70 LET L =FN C(URL "23641")-FN 
C(URL "23635")+URL "600": LET NF 
=INT ((URL "64436"-FN C(URL "236 
35")-NC-L-URL "150") /NO: LET DI 
=L+FN C(URL "23635"): LET DIR=DI 
+NC- 

30 LET PUN=DIR 

85 LET R$ = "." 

90 REH HENU DE OPCIONE3 

100 CLS LET C$ = "H E N U . 

.: “: GO SUB RO 

110 FOR Y =UAL "3" TO URL "21" 
PRINT RT Y.Z; PRPER URL "2";" 

NE 

XT Y 

120 PRINT RT URL "4",URL "2"; P 
RPER URL "3";"1-INTRODUCIR FICHA 
5.";RT URL "6",URL "2"; PRPER UR 
L "3";“2-CORREGIR FICHRS YR HECH 
RS.";RT URL "8",URL "2"; PRPER U 
RL *3";"3—BUSCAR FICHRS.";RT URL 
"10",URL "2"; PRPER URL "3";"4- 
BORRRR FICHRS.";RT URL "12",URL 
"2"; PRPER URL "3";"5-ORDENRR RL 
THbtl .LUAHfcNI E . ** i RT URL "14", URL 
"2"; PRPER URL "3";"6-GRABAR FIC 
HERO . " ; RT URL "16", URL "2"; PRPE 
R URL “3";“7-CARGAR F1CHER0.";RT 
URL "18",URL "2"; PRPER URL "3" 
;"8-NUEUO TIPO DE FICHERO.";RT U 
RL "20",URL "2"; PRPER URL "3";" 
9-IHPRESORR." 

130 PRINT ttNOT PI;flT Z,URL "3", 
INK NOT PI; PRPER URL "5";”tt PU 
LSE OPClON tt" 


LET I$=INKEY % IF 1$ = "" OR 
1 " OR 1$>"9" THEN GO TO URL 
" 140" 

145 IF I$="8" THEN GO TO URL "5 

•• 

158 CLS GO TO URL I$*URL "100 
0” 

1000 REH INTRQDUCCION DE DRTOS 
1140 CLS LET P$="EN LR HEHORIR 
CRBEN "*STR* NF +" FICHRS" PRIN 
T RT NOT PI,(URL "32"-LEN P$»/UR 
L "2"j P$ LET 0$="FICHfl:"+STR$ N 
FI PRINT RT URL "2",(URL "32"-L 
EN 0$)/UAL "2";0$ 

1200 PRINT RT URL "3",NOT PI': L 
ET G=Z 

1300 INPLfT (T$(G) );" :"; LINE 
IF (fl$=" OUT " RND G=PI/PI) THE 
N GO TO HE 

1350 FOR J=Z TO (H(G)-LEN fl$) : L 
ET R$=R$+" NEXT J IF LEN A*> 
H(G) THEN LET R$=R$( TO H(G)) 
1360 PRINT T$(G);":";R$ 

1400 FOR R=Z TO H(G) POKE PUN+R 
-Z,CODE R$(R): NEXT R: LET PUN=P 
UN+H(G): LET G=G+Z IF G>T THEN 
POKE P2,FN R(PUN) POKE PI, FN 8( 
PUN,P2): GO TO URL "1410" 

1405 GO TO URL "1300" 

1410 PRINT ttNOT PI;RT Z,NOT PI;" 

DRTOS CORRECTOS ?. 

": LET I$=INKEY$ IF I$="N" THEN 
LET PUN=PUN-NC: GO TO URL "1140 

•• 

1420 IF I$="5" THEN LET NFI=NFI+ 
Z: IF NFDNF THEN GO TO URL "145 

0 " 

1430 IF I$0"S" RND IS< >"N" THEN 
GO TO URL "1410’ 

1440 GO TO URL "1140" 

1450 PRINT ttNOT PI;"NO CRBEN HRS 

FICHRS.PAUSE HE: 

GO TO HE 

2000 REH MODIFICRCION DE FICHA 

2001 LET C$="CORRECCION DE FICHA 

.. ": GO SUB RO 

2002 INPUT "TERHINO R HODIFICAR 
7 "; LINE H$ LET M$=M$+RS(LEN H 
$+Z TO ) FOR R=Z TO T: IF M$=T$ 
(R) THEN GO TO URL "2010" 

2003 NEXT R 

2010 LET N=NC FOR S=Z TO R-Z: L 
ET N =N —H(S) : NEXT S: LET FIC=FIC 
-N: INPUT CHS*":"); LINE 0$ 

2020 FOR E=LEN 0$ TO H(R)-Z: LET 
0$=0$+" ": NEXT E: FOR E=Z TO L 
EN 0$: POKE (FIC+E),CODE 0$(E) 

NE XT E 

2030 PRINT RT URL "10",NOT PI;"H 
ODIFICRCION EFECTUADA": PAUSE HE 
GO TO HE 

3000 REH BUSOUEDA DE FICHA 

3001 LET CS="BUSOUEDR DE FICHR.. 
.GO SUB RO 

3010 INPUT "PISTR 7 "; LINE XS 
FOR U=Z TO LEN X$: IF X$(U)=" 
THEN GO TO URL "3030" 

3020 NEXT U 

3025 IF X$(Z)="S" THEN GO TO URL 
"3800" 

3030 LET 0$=X$(U+Z TO ): LET U$= 
X$( TO U-Z)+R*(U TO ): FOR Y=Z T 
O T: IF U$=T$(Y) THEN GO TO URL 
"3050" 

3040 NEXT Y 
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3060 POKE D2,FN A(DIR) POKE D1, 
FN B(DIR,D2) 

3070 LET BT =NOT PI: POKE 65290,F 
N A(NC): POKE 652S9, FN B(NC,6529 
0) FOR I=Z TO V LET BT=BT+H(I> 
NEXT I LET BT=BT-H(I-Z) POKE 
65219,BT: POKE 65218,LEN ©S FO 
R I=Z TO LEN 3$ POKE (DI+I),COD 
E 3$(I): NEXT I POKE 65278,FN fl 
(DI+Z) : POKE 65277,FN B(DI+Z,652 
78) 

3080 RRNDOHIZE USR URL '65252" 
3090 LET FIC=FN C(D1): LET PUN=F 
N C(P1): IF FIC > =PUN THEN PRINT 
»NOT PI;RT Z,NOT PI;"NO HRY HR5 

FICHR5..." : PROSE HE 

: GO TO HE 

3100 GO TO URL "3900” 

3800 LET FIC=OIR: FOR S=Z TO NF 
GO TO 3908 

3810 NEXT 5: GO TO HE 
3900 LET AS="": PRINT RT URL "3" 
,NOT PI;"FICHR ",INT ((FIC-DIR) 
/NO+Z: LET L =URL "4-": LET FIC=F 
IC-Z: FOR I=Z TO T: FOR F=Z TO H 
(I): LET AS=AS+CHRS (PEEK (FIC+F 
)): PRINT RT L,NOT PI;T$(I);":"; 
R$;" I”; : BEEP .003,20: NEXT F: P 
RINT CHRS URL "8";" LET L=L+Z 
+ ((Z AND LEN AS >URL "21")*INT (L 
EN AS/UAL ”21")): IF L >URL "21" 
THEN LET L=UAL "3" 

3905 LET AS=“": POKE URL "23692" 

, URL "255": LET FIC=FIC+F-Z: NEX 
T I 

3910 PRINT ttNOT PI;RT NOT PI,NOT 

Pi;"HRS FICHRS ?(S/N). 

LET I$=INKEY$: IF IS="S" 
THEN LET FIC=FIC+Z: POKE D2,FN 
R(FIC): POKE D1,FN B(FIC,D2) GO 
TO (URL "3080" RND XS(Z)<>~5")+ 
(URL "3810" RND X$(Z)=“S") 

3920 IF I$="N" THEN GO TO HE 
3930 GO TO URL "3910" 

4-000 REH PORRRR FICHR 

44501 LET CS="BORRADO DE FICHR... 

..“: GO SUB RO 

4010 PRINT ttNOT PI;RT Z,NOT PI;" 

CONFIRHR BORRflDO ?(S/N).. 

": LET.I$=INKEY$ IF I$<>"5~ RND 
I$<>"N" THEN GO TO URL "4010" 
4020 IF IS ="N" THEN GO TO HE 
4025 IF (FIC+1) > =PUN THEN GO TO 
URL "4040" 

4030 POKE URL "65242",FN KFIC+Z 
): POKE URL "65241",FN B.rIC+Z,U 
RL "65242"). POKE URL "65245’,FN 
fi(FIC—NC+Z): POKE URL "65244",F 
N B (FIC-NC+Z , URL "65245"): POKE 
URL "65248“,FN R(PUN-FIC+Z): POK 
E URL “65247",FN B(PUN-FIC+Z,URL 
"65248") RRNDOHIZE USR URi_ "65 
240" 

4040 LET NFI=NFI—Z: i_ET PUN=PUN- 
NC pokf po p (P*JM) : POKE P1,F 
N B(PUN,P2) 

I 4050 PRINT RT URL "10",NOT PI;"F 
ICHR SUPRIHIDR" : PRUSE” HE : GO TO 
HE 

5080 REH ORDENRCION RLFRBETICR 
5001 LET C$ = "ORDENRCION RLFRBETI 

CR.. " : GO SUB RO 

5010 INPUT "POR OUE TERHINO ORDE 
NO LINE Z$: FOR I=Z 

TO T: IF Z$ =T$(I) ( TO LEN Z$) TH 
EN GO TO URL "5030" 

5020 NEXT I 


5030 POKE 65224,NOT PI: POKE 652 
25,NOT PI POKE 65221,FN R(DIR-Z 
): POKE 65220,FN 8(DIR-Z,65221) 
POKE 65227,FN A(NFI-Z-Z) POKE 
05226,FN B(NFI-Z-Z,65227) POKE 
65229,FN R(H(I)). POKE 65228,FN 
B(H(I),65229) 

5040 LET CT =NOT PI FOR S=Z TO I 
LET CT =CT4H(5) NEXT S: LET CT 
=CT-H(S-Z) POKE 65231,FN R(CT): 
POKE 65230,FN B(CT,65231) POKE 
65239,FN R(PUN-NC): POKE 65238, 
FN B(PUN-NC,65239) POKE 65237,F 
N R(NCI: POKE 65236,FN B(NC,6523 
7) LET CO=DIR+CT-Z: POKE 65213, 
FN R(CO) POKE 65212,FN B(CO,652 
13): LET CO =C0+NC POKE 65211,FN 
R(CO): POKE 65210,FN B(CO,65211 

0 

5055 RRNDOHIZE USR URL "65311“ 
5060 PRINT RT URL "10",NOT PI,"O 
RDENRCION EFECTUADA" PAUSE HE 
GO TO HE 

6000 REH GRRBRR FICHERO 

6001 LET C$="GRABACION DE FICHER 

O.GO SUB RO 

6010 GO SUB URL "9996": RRNDOHIZ 
E (PUN-DIR)/NC SRUE N$CODE URL 
"23670",URL "2": SRUE N*CODE DIR 
PUN-DIR 

6020 PRINT RT URL "18",NOT PI, F 
LASH Z;"UERIFICANDG:";: UERIFY N 
SCODE URL "23670',URL “2": UERIF 
Y NSCODE DIR,PUN-DIR PRINT “COR 
RECTO" PAUSE HE GO TO HE 

7080 REH CRRGRR FICHERO 

7081 LET C$="CARGO DE FICHERO... 

.. . :": GO SUB RO 

7010 GO SUB URL "9996": LORD N*C 
ODE LORD NSCODE DIR LET PUN=D 
IR+NC+FN C(URL ”23670"): POKE P2 
,FN A(PUN) POKE P1,FN 8(PUN,P2) 

: PRINT RT URL "10",NOT PI;"CORR 
ECTG". PAUSE HE: LET NFI=INT C(P 
UN-DIR) /NO+Z: GO TO HE 

9000 REH IHPRESORA 

9001 LET CS ="L1STRDO EN IHPRESOR 

R.“: GO SUB RO 

9005 PRINT "PULSE UNA TECLR PRRR 
UOLUER RL HENU' 

9010 INPUT "DESDE LR FlChf^ “;F1 
: IF F1=NOT PI THEN LET F2=NFI-Z 
: GO TO URL "9020" 

9015 INPUT "HRSTR LR FICtiR "; F2 

9030 FOR F=F1+(Z RND Fl=NOT PI) 
TO F2: LPRINT “FICHR: ";F: FOR G 
=Z TO T: LET 0=NOT PI: LET RS="" 

9031 FOR X=Z TO G: LET 0=0+H(X): 
NEXT X: LET 0=0-H(X-Z) 

9035 LPRINT T$(G); FOR U=Z TO H 
(G): LET A$=CHR$ PEEK (F+NC+DIR+ 
J-Z-NC+O) LPRINT A$,: NEXT U: L 

PRINT ': NEXT G: LPRINT "- 

-“ : ip I 

NKEYS=“" THEN GO TO URL "9050" 
9040 LET A S ="": GO TO HE 
9050 LPRINT NEXT F: LET RS=“ M 
GO TO HE 

9996 INPUT "NOHBRE DEL FICHERO ? 
”; LINE NS: IF LEN NS>UAL "10" 

THEN GO TO URL "9996“ 

9997 RETURN 

9998 PRINT RT Z,NOT PI; INK URL 
“6"; PAPER Z; BRIGHT Z;CS- RETUR 
N 

9999 SRUE "fiCherOS" LINE NOT PI 
: UERIFY "ficheros" 
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LISTADO ENSAMBLADOR 
DEL PROGRAMA FICHERO 


RUT1NRS C/M PROGRRMR 


65240 

214/RE 


LD 

HL,44b 

lb 

65243 

lit3RD 


LD 

DL ,445 

lb 

65246 

01 

010100 


LD 

BC,000 

65243 

EDB0 


LD1R 


65251 

C9 


RET 


65252 

3RBFFE 

EFEE4 

LD 

R, (652 

15) 

65255 

67 


LD 

H,R 

65256 

3RC1F E 


LD 

R, 4652 

17) 

65259 

BC 


CP 

a 

65260 

F 8 


RET 

M 

65261 

3RBEFE 


LD 

R, 1652 

14) 

65264 

6 F 


LD 

L,R 

65265 

3RC2FE 


LD 

R,(652 

18) 

65266 

47 


LD 

B,R 

65269 

3RC3FE 


LD 

R, (652 

19) 

652/2 

5F 


LD 

L,R 

652/3 

1600 


LD 

D, U 00 

65275 

19 


HDD 

ML ,DE 

652 /6 

110E5B 


LD 

DL,233 

10 

65279 

1R 

LFEFF 

LD 

R, (DE) 

65260 

BE 


CP 

(HL) 

65281 

08 

2005 


JR 

NZ,LFF 

65283 

23 


INC 

HL 

65284 

13 


INC 

DE 

65285 

10F8 


DJNZ 

LFEFF 

65287 

C9 


RET 


65288 

00 

116400 

LFF08 

LD 

DE,001 

65291 

3RBEFE 


LD 

R,(652 

14) 

65294 

6 F 


LD 

L,R 

65295 

3RBFFE 


LD 

R. (652 

15) 

65298 

67 


LD 

H.R 

65299 

19 


RDD 

U_,DE 

65300 

7D 


LD 

.4,L 

65301 

32BEFE 


LD 

(65214 

) ,R 
65304 

7C 


LD 

R,H 

65305 

32BFFE 


LD 

(65215 

) ,R 
65308 

18C6 


JR 

LFEE4 

65310 

00 


NOP 


65311 

220 ) 

2RC4FE 

EFF IF 

1 D 

ML,(65 

5531- 

22C5f c 


LD 

(65222 

) ,HL 
65317 

2RBCFE 


•_D 

HL,(65 

212 ) 



• 


65320 

22D0FE 


LD 

(65232 

) , HI- 

65323 

210 ) 

2RBRFE 


LD 

HL,( 6 S 

65326 
) , HI- 

22D2FE 


LD 

(65234 

65329 

226) 

65332 

2RCRFE 


LD 

HL,(65 

ED4BC8FE 


LD 

BC,(65 

224) 


65336 

03 


INC 

Be 

6533 7 

ED43COFL 


LD 

(65224 

) , BC 
65341 

B/ 


OR 

11 

65342 

ED42 


3BC 

HL , BC 

65344 

F 8 


REI 

M 

65345 

00 

010000 

LFF 4 1 

LD 

BC,000 

65348 

03 

L Ff 44 

INC 

BC 

65349 

228) 

2RCCFE 


LD 

HL , (65 

65352 

B/ 


UR 

R 

65353 

ED42 


5BC 

HL ,BC 

65355 

7 

65358 

FR87FF 


JP 

M,LFF 8 

2RD0FE 


LD 

HL,(65 

232) 

65361 

09 


HDD 

HL . BC 

65362 

56 


LD 

D, (H»_) 

65363 

234) 

2RD2f E 


LD 

HL,(65 

65366 

09 


RDD 

HL ,BC 

6536/ 

7E 


LD 

R,(HL) 

65368 

BR 


CP 

D 

65369 

4 

28E9 


JR 

Z,LFF4 

65371 

7 

65374 

F287FF 


JP 

P,LFF 8 

010100 


LD 

BC,000 

01 

653/7 

232) 

2^D9FIL 

LFF61 

LD 

HL,(65 

65380 

230) 

ED5BCLFL 


LD 

DE,(65 

65384 

B7 


OR 

R 

65385 

ED52 


SBC 

HL , DE 

65387 

09 


HDD 

HL , BC 

65388 

7E 


LD 

R,(HL) 

65389 

236) 

ED5BD4FE 


LD 

DE,(65 

65393 

19 


RDD 

HL ,DE 

65394 

56 


LD 

D.(HL) 

65395 

77 


LD 

(HL) ,R 

65396 

B7 


OR 

R 

65397 

7R 


LD 

R,D 

65398 

236) 

LD5BD4FE 


LD 

DE,(65 

65402 

ED52 


SBC 

HL, DE 

65404 

77 


LD 

(HL) ,R 

65405 

03 


INC 

BC 

65406 

EB 


EX 

DE , HL 

6540/ 

B7 


OR 

R 

65408 

ED42 


SBC 

HL , BC 

65410 

FR87FF 


JP 

M, LFF 8 

65413 

18DR 


JR 

LFF61 

65415 

222 ) 

2RC6FE 

LFF87 

LD 

HL,(65 

65418 

236) 

ED5BD4FE 


LD 

DE,(65 

65422 

19 


RDD 

HL ,DE 

65423 

22C6FE 


LD 

(65222 

) , HL 

65426 

232) 

2RD0FE 


LD 

HL,(65 

65429 

19 


RDD 

HL ,DE 

65430 

22D0FE 


LD 

(65232 

) ,HL 

65433 

234) 

2RD2FE 


LD 

HL,(65 

65436 

19 


RDD 

HL,DE 

65437 

22D2FE 


LD 

(65234 

) ,HL 
65440 

238) 

ED5BD6FE 


LD 

DE,(65 

65444 

222 ) 

2RC6FE 


LD 

ML,(65 

65447 

23 


INC 

HL 

65448 

B7 


OR 

R 

65449 

ED52 


SBC 

HL, DE 

65451 

FR41FF 


JP 

M, LFF4 

65454 

C31FFF 


JP 

LFF IF 
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GUN FIRE 



ID REM PDR LUIS DDRGE GRRCIR 
ED REM 133T.MUNDD SPECTRUM 
3D POKE E350T 153: POKE 53550 
0: BRIGHT i: PPPER D• INK 5: BOR 
DER D: CLEPR MM333: LET REC : 1CC• 
LET Z$ = "LUI" 

HD CD SUB 11D 
SD CD SUB BSD 
CD CD SUB BCD 

TD LET UE=ii: LET H Z M: LET PU = 
D: LET HE : E5: LET XX=25: LET LE - 
i: LET BP=H: LET UEE Z 1E: LET ZZ= 
1C 

BD CD SUB 33D 
3D CD SUB H9D 
1DD CD SUB M3B 
1ID CD SUB HID 
1CD CD SUB CCD 
13D CD SUB TDD 
1MD IP LE : 5 THEN CD SUB CCD 
15D CD TD 30 
15D REM P 

1TD LET L$ = "CUNPIRE•": LET P^TD 
: LET R =LEN L*: PRINT INK 0 : RT C 
1 D'L5 

1BD FOR N -D TD B+R-l: FDR D=D T 
D T 

19D IP POINT (N Di=D THEN CD TD 
C2D 

CDD BEEP •DD1 CD 
C1D PLOT N*M D^-135-P: DRRU M 
D: DRRU D M: DRRU -M D: DRRU D 
3: DRRU 3 B: DRRU D E: DRRU -E D 
j, DRRU D -is DRRU C 0: DRRU -C - 

*~EED NEXT D: NEXT N 
C3D PRINT RT 15 M: INK T s ,f PDR L 
UI5 DDRCE CRRCIR" *' RT Cl D ■ INK T 
POKE C353C 1DD: FOR 
N r D TD 3: PRINT : NEXT N: PRINT 
#1 : “ DEDR PUL5RDR 5 PRRR EL M 
ENU " 

CMD RESTORE CMD: PDR N = 5MMDD TD 
5MMEM: RERD R: POKE NR: NEXT N 
CSD DRTR 5 CM IT D CM 513 CCS 3 
5 1ST 1 31 D EC C3T 1T5 M3 113 D 
35 35 13 133 15 CMD EDI 
CSD PDR P =D TD 31: RRNDDHIZE US 
R 5MMDB: PRU^ 5: NEXT F: IF INK 
E¥G=”5" THEN RETURN 
ETD CD TD CCD 
EBB REM R 

C3D PDR N = D TD CD: BEEP 01 N: 
NEXT N: INPUT "TECLR RBRDD• "s L 
INE D* 

3DD INPUT "TECLR RRRI3R• "? LIN 
E 1$ 

31D INPUT "TECLR DISPRRD• "? LI 
NE FJ 

3CD PRINT RT ID M; INK T PRPER 
E: BRIGHT 1: FLR5H 1 ? "E5TR SIEN 

RSI (5/N)’•" 

JJu PRINT RT 13 5? INK T ?"TECLR 
RBRDD. n :D$:RT 15 5: "TECLR 

B RRXBR■ "!l*-RT IT 5:"TECLR 

DISPRRD• -!PG 

3MD INPUT LINE C*: IF C9 sm N" TH 
EH CD TD EBQ 
3SD RETURN 
35D REM M 

3TD RESTORE 3TD: FDR F=1 TD 53: 
RERD D T: BEEP D T: NEXT P: DPT 
R .1 5 .1 5 .1 5 -M T .M T -M T 
.1 59 .1 T .1 T.l 5 .E T -M ID, 


Tu misibn sera interceptar las naves enemigas. antes de que estas He 
guen hasta ti. De k> contraho. te quitarin una vida. (Y solo tienes cuatro) 
Podrds conseguir un bonus, en puntos, al llegar a los 1000 puntos jus 
to. es decir, no podras llegar por ejempio con 1005, ya que entonces no 
se te darin bonus. 

A los 100. 300. 600 y 3500 la dificultad iri incrementando y te sera mas 
di*icil conservar la vida 

iSUERTE Y AL TORO* 

LAS MEJORES PUNTUACIONES ADMITIRAN REGISTRAR EL NOMBRE 
DEL JUGADOR 



Lineas 160 a 230 
Realizacibn del rbtulo GUNFI¬ 
RE. 

Lineas 240 a 260 
Realizacibn de un scroll en el 1. 
tercio de pantalla. 

Lineas 280 a 350 
Redefinicibn de teclas. 

Lineas 360 a 380 
Realizacibn de la musica. 
Lineas 390 a 480 
Iniciacibn de Pantalla. 

Lineas 490 a 610 
Movimiento de la pistola, nive- 
les de dificultad y suma de bo¬ 
nus. 

Lineas 620 a 690 
Generador de enemigos n.1. 
Lineas 700 a 740 
Generador de enemigos n.2. 
Lineas 750 a 810 
Cartelera Game Over, efecto 
musical y inicializador de juego. 
Lineas 820 a 910 
Cbdigos chr$ retocados y gri 
ficos. (Esta linea de 820 a 910 
se puden anular pero no podris 
jugar con grbficos y las letras 
serin las tipicas del spectrum). 


AVISO IMPORTANTE 

Copiar con detencibn las 
lineas datas, reparindolas 
con detenimiento, ya que 
de lo contrario los grbficos 
y letras podrian salir 
corrompidas. 

Poner espacios donde 
vienen indicados. 



Rec. Record maxima puntua- 
cibn. 

Z$ Record reaiizado por 

VE . Coord vertical de la nave 

H. Coord, horizontal de la na¬ 
ve. 

PU. Puntos realizados. 

HE. Coord, horizontal de ene 
migo 1 BOM (Borrado 
del enemigo 1) 

VEE. Coord, vertical de la nave 
enemiga VEH (Borrado 
del enemigo II. 

XX. Coord, horizontal del ene 
migo 2 

ZZ. Coord, vertical del enemi¬ 
go 2. 

BA. N* de vidas. 

LE. Nivel. 

LS. Rbtulo (Nombre del |ue 

9°) 

D$. Variable que guarda el va¬ 
lor de la tecla ABA JO 

1$. Variable que guarda el va¬ 
lor de la tecla ARRIBA 

F$. Variable que guarda el va 
lor de la tecla DISPARO. 
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•i 1 .* -S i n -1 5 -2 * .1 53 
i M -15 • 1 M .Ml -Ml .Ml .1 
59 .11 -il.i5.21.MiD 
l -i3.il.i5-2M .1 53 
K'i it • i 12 i ic .i ii i ID 
•2 3 i ic i ic .i ic -i iM 1 
i3 .i ic -2 ii .i M .i 


1 

i i 


• 3 5 -2 3 .2 5 


5 M 

59 


• i 


1 -30 i 3 
33D RETURN 
39D REM I 
MOD LET =1 

MiD PRINT PT D- INK 1' PRPER 

0 : " 

LET = -i 

M2D IF 25 THEN □□ TD MiD 

M3D BORDER 2: INK 1: PLOT 2M ii 
5: DRRU 192 D: DRRU D li: DRRU 
*i35 D: DRRU D li: PLOT 2M 33• D 
RRU i32 0: DRRU D -33; DRRU -i32 
D: DRRU D 33 

MMD PRINT Hi: BRIGHT 1 - PRPER 2 

•MUNDD 5PECTR 


'UIDRS : " ! RT i 


"MUNDD SPECTRUM 
UM M 

M5D PRINT RT iS M 
3 15'"MRX:"iREC 
MSB FDR N : D TD 3: PRINT RT iD i 
i i '■ SEEP -20^ N: NEXT N 
MID PRINT RT 2D M "PUNTDS:":PU: 
PRINT RT 2D i5 : ,r RECORD : " • 2$ 

M9D RETURN 
M3D REM M 

3DO IF INKE¥*=D* THEN LET UE=VE 
-i * t SEEP • DDi 3D- PRINT RT UE-i 

SiD IF INKE¥$=I5 THEN LET UE=UE 

i j t SEEP DDi 31: PRINT RT UE -1 

52D IF UE 15 THEN LET UE=15 
53D IF VE B THEN LET VE=B 
5MD IF INKE¥*=F* THEN FDR F ; i T 
D 2D : PRINT RT UE H-1 +F INK 
NEXT F: 5EEP -DDi 53: BEE 
P •DD2 MO: PRINT RT VE H-1 " 

CD TD 130 

55D IF PU-iDD THEN LET LE=2 
55D IF PU=3BD T«IN LET LE=3 
SID IF PU 500 THEN LET LE-M 
SBD IF PU=iDDD THEN LET LS=5: L 
ET BDN-2DD: FDR N=i TD MD: PRINT 
RT ii 3 FLR5H i - "BONUS ■ "'BON'- 
BEEP •DOOM MD: LET PU=PU-S: PRI 
NT RT 2D ii:PU: fffiXT N: PRINT RT 

ii 3 f FLR5H D:” 

S3D IF PU : 3SDD THEN LET LE=1 
5DD PRINT RT UE H:" 

SiD RETURN 

52D REM G i 

53D LET BDH : HE: LET VEH=Vffi 
5MD LET VEE=INT RND+LE -3 
BSD PRINT RT UEH BDH>i‘” " 

55D PRINT RT UEE HE INK ~ : 

STD LET HE=HE-i 

SBD IF HE =M THEN BEEP .i 25: LE 
T 3R ; BR-i: PRINT RT iB ii-BR*" " 
JRT MEE HE-1 : ** ": LET ffi=25: IF 
BR=B THEN CD TD 15D 
53D RETURN 

IffiJ REM 2 

liD PRINT RT 22 XX:.INK 2 s M 
12B LET XX=XX-i 

133 IF X v = u THEN SEEP -1 MS: LE 
T 3R BR -i: PRINT RT iB ii-BR " " 
RT 22 XX-i : " LET XX=25: LET 
22 : INT RND+B -B: IF HR=D THEN G 
D TD 15D 
1MD RETURN 
15D REM 5 

150 CL5 : PRINT RT ii iD? FLR5H 
1: INK 1: PRPER 2 : "GRME OVER": 
PRU5E iDD: FDR N : D TD M2 STEP 3*. 

FDR M=D TD il STEP 3: BEEP -D2 
M-N: BEEP -DDI M N: NEXT M: NEXT 
N: PRUSE iDD 


110 IF PU ;fKC THEN LET REC PU • 
.PglNT^RT 2i D:" RECORD INTRDDUC 
E MRX .3 LETRRS. INPUT "NDMBRE 

• IL UINE 2$: IF LSN 2* 3 THEN 5 
0 TD T5D 

130 PRPER D: INK 2: CL5 : CD TD 

130 IF UE=UEE THEN BEEP -Di 1: 
«ET PU : PU-iD• LET HE 55 
BOD IF VE=22 THEN BEEP -Di 3: L 
ET PU =P|J -5 • LET XX r 55 : LET 22 : IN 
T RND^B -B 
BiD GD TD 55D 

BSD PRPER D: INK 2: BORDER 0: C 
L - • 55 X * T *1 1 FLR5H i BRIGHT i 
-25S5 55 = ; XHK 1 CRRGRNDD DRTRS 
ESPERR UN MDMENTD" 

B3D RESTORE 33D FDR N : MiDBM TD 
M2M31 RERD R: POKE N R: NEXT N 
BMD DRTR DDDDDDDD2M2M 
2* 2M 2M D 2M D 5M 5M 5M D 0 D 2 
D i05 25M 25M iDB 25M 2SM IDS D 
2M 25M 155 2SM 25 2SM 2M D 133 
IBB 12 2M MB 122 133 D 2M 35 2M 
MB IM ID 55 D 5 5 15 D D D D D 
BSD DRTR MBBBBBMD3215 
ip ig 15 35 D D BM 55 25M 55 
BMDDDBB55BBDDD2DD 
5B15DDD25DDDDDDDD 
□ 5M 2M D 0 5 M 0 15 35 5M 123 C 
25M 55M 222 21M 

BSD DRTR 23D 25M 25M D MB 112 2 
MD MS_MB 552 252 D 25M 25M 2 25M 
132 25M 25M D 25M 25M 5 22 2 25 
M 2SM D 132 2DM 2DM 252 255 12 1 
2 D 55* 25* 192 2SM 5 25* 25* D 
25* 25* 123 25* 13B 
BID DRTR S5M 25* D 25* 25* 2 2 
2 2 2 □ 25* 25M 133 3* 130 25* 
23M D 25* 23* 13B 25* 5 25* 25* 

D D 2M 2* D 2M 2* D D D 2M 2* 0 
2M B 12 D 12 22 3M IK 2* 

BBD DRTR 32 15 D □ 5D D 50 0 B 
D D 3*212 M 3D 2M 35 * 5 15 
D 15 D 5D 130 15* 1MB 152 13D 1 
2M D 25M 25M 13B 55M 25M 15B i3B 
D 25M 25M 130 252 133 25* 25M D 
25* 25* 

B3D DRTR 13B 192 13B 25M 25M D 
2MB 252 138 193 198 252 2*3 0 25 
i 25* 19M 2*3 13M 25M 25* D 25* 
25* 19* 2*3 192 132 132 D 25* 25 
M 192 2D5 133 23* 25* D 133 135 
S5M 25* 133 13B 133 D 125 125 2* 
2* 2* 125 125 D 23* 25* 5 13B i 
33 25* 25* D SD5 
3DD DRTR 212 2*0 2*0 215 2D* 13 
B D 192 192 132 192 190 25* 25* 

0 195 23B 25* 21* 193 19B 133 B 
133 23D 2*5 222 332 133 153 D 25 

* 25* 19B 19B 138 25* 25* D 25* 
25* 133 25* 25* 132 132 D 25* 25 
M 133 193 203 S5M 2 D 25* 25* 13 
M 25* 252 2DM 130 0 25M 

31D DRTR 25M 192 25M 2 25M 25M 
D 25M 25M 2M 2M 2* 2M 2M D 133 1 
3B 133 133 133 25* 25* D 135 13B 
13B 135 IDB 53 15 D 133 133 133 
21M 25M 233 133 D 13* EDM 120 3 
5 1D3 133 130 D 133 130 25M 25M 
2M 2M 2M D 25M 25* 12 2* *3 123 
S5M 0 25* 

92D DRTP 3D 152 255 255 152 3D 
25M ODD 111 111 D D D 2* 50 3D 
255 35 2* 35 55 153 5D 55 213 2 
13 55 50 153 

33D INPUT "DUIERES SRCRR UNR DD 
PIR •"'R$: IF R$"5" DR RS=" " T 
HEN 5RVE ’’GUNFIRE" LINE 350: spu 
S "GUNLETER"CODE *19S-*S: RUN 
3MD RUN 

350 5RUE "GUNFIRE" LINE 32D: ST 

OP 

350 CLS : LORD ""CODE : RUN 
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Hoy en dia considera- 
mos el espacio como al¬ 
go que se encuentra fue- 
ra de los dominios de la 
raza humana, pero eso no 
quita, que existan seres 
intergaldcticos en otras 
galaxias distintas a la Via 
Lactea. Pues bien, en es- 
te juego podr^s ver la ma- 
nera de jugar al tenis que 
tienen estos seres extra- 
terrestres, que junto con 
dos raquetas manejan 
una bola muy especial, 
con la cual se deber£ des- 
truir los pequenos fantas- 
millas que rondan dentro 
del campo donde se de- 
buta el campeonato de 
ping-pong. 

Cada fantasma que 
consigas destruir te pun- 
tuar£ en el marcador tan- 
to como PU puntos, los 
cuales cuando vayan su- 
m^ndose, te har^n supe- 
rar el record de la m£qui- 
na. Suerte y a por todas. 

Las teclas de movi- 
miento son las siguientes: 
con la Q o la P mueves 
hacia arriba. Con la Z o la 
M mueves hacia abajo, y 


con el espacio sacas la 
pelota. 

Comentario del progra- 
ma 

En la linea 40.- se ini- 
cializan los colores de la 
pantalla, a la vez que se 
afiade un cartel en medio 
donde se hace visualizar 
-Espera un momento-. 
Ese momento de espera 
es debido a lo que tarda 
el ordenador en introducir 
los UDGs. del programa, 
en memoria, metidos es¬ 
tos ultimos mediante da- 
tas, los cur's son leidos 
gracias a la iinea 45. 

En la linea 50.- se ini- 
cializa la variable del re¬ 
cord igualandola a 100, y 
se realiza un poke espe¬ 
cial con el cual se asegu- 
ra que el cursor se en- 
cuentre durante el juego 
en mayusculas. 

En ia linea 60.- se efec- 
tua un CLS en la panta- 
ila, y se la vuelve a re-ini- 
cializar en sus colores, 
que perdurar^n en el jue¬ 
go. 

Desde la linea 70 a la li¬ 
nea 150.- se inicializan to¬ 


das las variables del jue¬ 
go, exceptuando la del 
record que ha sido inicia- 
liada anteriormente. Las 
variables se correspon- 
den de la siguiente mane- 
ra: BORRAR.- variable 


que se utiliza para borrar 
la bola o las raquetas so¬ 
lo cuando se encuentren 
en movimiento, de esta 
manera al estar paradas 
no se notary ningun par- 
padeo. PU.- variable de 


10 REh 
20 REh 
30 REM 

35 REM 

36 REM 

40 PRPER 0: 
RIGHT 1: CLS 
10,7:” ESPERA 
7; " 


******************* 
*** BI-PRLETA *** 
******************* 


BORDER 0 INK 7 B 
PRINT PRPER 2;RT 
UN MOMENTO ”j AT 9, 
”;RT 11,7; 

•t 

RERD B POKE 


45 FOR fi=0 TO 87 
USR "a"+R,B: NEXT R 
50 LET RE=100 POKE 23658,8 
60 BRIGHT 8 BORDER 0: PRPtR 0 
: INK 7: CLS 

70 REM ********************* 

80 REM **** VARIABLES **** 

90 REM ********************* 
10© LET BORRRR=l: LET PU=0 
110 LET PX=10: LET PXB=PX 
120 LET FYI=1: LET FE=0: LET FX 
= 16: LET FY = 15: LET FXB=FX: LET 
FYB=FY 

140 LET CB0=5: LET BOLA=0 LET 
BX =14 LET BY=3: LET BXB=BX: LET 
BYB=6Y LET BXI=1: LET BY1=1 
150 LET MOU=l 

REM *********************** 
REM *** DIBUUO PRNTRLLR *** 
REM *********************** 


200 

210 

220 


KJK JK JK J'' 

. K 1 K ' • K . IK Ki_lK .K JK I 

- . ; r ; h 

JK-JKJKJK 

h , ir . 1K JK JhJKJKJKI »K 

, | *•. |W , 1 


K . !K , IK<JK : K• If* . !K JK. T 

H JK • JK 
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los puntos. PX.- variable 
de movimiento de las dos 
raquetas. PXB.- variable 
de borrado de las raque¬ 
tas. FYL- variable de in- 
cremento o decremento 
de los fantasmas segun lo 
necesite su movimiento. 


jjSTjTiT' -1 >-# > * 


pelota. BXB, BYB.- coor- 
denadas de borrado de la 
pelota. BXI, BYI.- coor- 
denadas de incremento o 
decremento de la pelota. 
MOV.- contador de la pe¬ 
lota para que a cada gr$- 
fico o movimiento de es- 
ta aparezca un gr^fico di- 
ferente de esta. 

Desde la linea 200 a la 
llnea 270.- sc dibuja el 
paisaje y contorno de la 
pantalla donde se va a de- 
sarrollar el juego. 


'JO-^ 

S3 


pumtov ieo secopo, toe 

3 3 5]^' 'PCLOTflS: 00 -S-adli 

3--n i -a sj 33 

■S3 -S3 23 72 -Z3 3 T3 T3 *53 S) 113 Z) S H 33 


:*» 


s» 

3 

w 




2 ; 

2 TGRNE3T 


aouefis 



m 


* 

QTRR VEZ C5 

J 

S 

TJTJ 


a 13 -3 


C 

S3 *^3 


FE.- variable de si existe 
o no los fantasmas en 
pantalla. FX,FY.- varia¬ 
bles de movimiento de los 
dos fantasmas. FXB, 
FYB.- variables de borra¬ 
do de los oos fantasmas. 
CBO.- contador de las 
bolas. BOLA.- variable de 
existe o no la bola o pe¬ 
lota. BX, BY.- coordena- 
das de movimiento de la 


Desde la linea 1000 a la 
linea 1400.- se encuentra 
el bucle principal donde 
se imprime y mueve me- 
diante las instrucciones 
de INKEY$, las raquetas, 
a la vez que se realizan los 
correspondientes GO- 
SUB a la§ distintas subru- 
tinas del programa. 

Desde la linea 1500 a la 
linea 1580.- se imprimen y 


R 

B 

C 

D 

E F 

G 

H I J K 

* 

6 

9 

& 

B 

? 

• 3 a b 



250 PRINT INK 4.RT 10.12; . 

11 , 12 ; ^ 12,1 

2; 13.12; 1JK "I ** 

260 FOR R=6 TO IB STEP 2: PRINT 
ink 3;«T R+i, 0 ;R 4 1 , 30;" 
ZI";flT fl,0; ne 

XT R 

270 PRINT BRIGHT 1; PRPER 1;RT 
1/3;“PUNTOS: 00 ";RT 1,17;“RECO 
RD: ";RT 1,25;RE;RT 3,11;"PE 

LOTRS: 05 " 

1000 REN 

1010 REN 44 INPRESION PRLETRS 44 
1020 REN 44444444444444444444444 
1030 IF BORRRR = 1 THEN PRINT RT P 
XB,3;" ";RT PXB + l,3;" ";RT PXB,2 
8 ; “ ";RT PXB41/28;" LET BORRR 
R = 0 

1040 LET PXB =PX 

1050 PRINT BRIGHT 1;RT PX,3;"a"; 
RT PX + 1,3; "£*;RT PX,28;"2";AT PX 
♦1,28; 

1060 IF INKEY$=**Q" OR INKEY$="P" 
THEN LET PX=PX-1; LET BORRRR=1: 
IF PX <6 THEN LET PX=6 
1070 IF INKEY$ = *'Z" OR INKEY$="H" 
THEN LET PX=PX+1 LET BORRRR=l: 
IF PX >16 THEN LET PX=16 
1100 IF FE =0 THEN LET FE=1: LET 
FX =16: LET FY=15 
1110 IF FE =1 THEN GO SUB 1500 
1140 IF BOLR=0 THEN LET BX=PX4l: 

LET BY=4: GO SUB 2120: IF INKEY 
$ = “ ** THEN LET BQLR=1: LET BXI=1 
: LET BY1=1: FOR R=1 TO 5: BEEP 
.005,R: NEXT R 

1150 IF BOLR=l THEN GO SUB 2000 
1400 GO TO 1030 

1500 REN 44444444444444444444444 
1510 REN 44 NOUIN. FRNTRSNR 1 44 
1520 REN 44444444444444444444444 
1530 PRINT RT FXB, FYB; ** M ;RT FXB 
-8,FYB;“ LET FXB=FX: LET FYB= 
FY 

1540 PRINT INK 6; RT FX , FY; ; RT 

FX-8, FY; 

1550 LET FY =FY4FYI 
1560 IF FY >25 THEN LET FYI=-1 
1570 IF FY <6 THEN LET FYI = 1 
1580 RETURN 

2000 REN 444444444444444444444 
2010 REN 44 NOUINIENTO BOLR 44 
2020 REN 444444444444444444444 
2120 PRINT RT BXB,BYB; ,# LET B 
XB=BX: LET BYB=8Y 

2130 IF NOU=l THEN PRINT INK 5,R 
T BX,BY,"^ M 

2140 IF NOU=2 THEN PRINT INK 5;R 
T BX,BY;"£ M 

2145 IF BOLRO0 THEN LET NOU=3-N 
OU 

2150 IF BOLR =0 THEN LET NOU=l: R 
ETURN 

2152 IF BXI=1 RN£> BYI=1 RND RTTR 
CBX,BY + 1) =4 THEN LET BYI=-1: 60 
TO 2200 

2154 IF BXI=—1 RND BY1=1 RND RTT 
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R (BX-1, BY) =4- THEN LET BXI=1: GO 
TO 2200 

2156 IF BX1=1 RND BYI=-1 RND RTT 
R (BX +1 j BY) =4- THEN LET BXI=-i: G 
O TO 2200 

2158 IF BXI=-1 RND BYI=-1 RND RT 
TR CBX ,BY-1) =4 THEN LET BYI = 1: G 
O TO 2200 

2160 IF RTTR (BX +BXI , BY +BYI) =4- R 
ND BXI = 1 RND BY 1=1 THEN LET B. V T^ 
-1: GO TO 2200 

2170 IF RTTR (BX+BXI,BY+BYI)=- 
HO BXI=-1 RND BY1=1 THEN LET ^ 

- -1: GO TO 2200 

= 30 IF RTTR (BX+BXI,BY+BYI) =•- H 
SC BXI = 1 RND BYI=-1 THEN LET 6 * I 
= 1: GO TO 2200 

2190 IF RTTR (BX+BXI,BY+BYI) =* v* 
NL BXI=-1 RND BYI=-1 THEN LET 8 * 
1 = 1 

2192 IF RTTR (BX+BXI/BY+BYI)=3 T 
HEN GO SUB 3500 

2194- IF RTTR (BX+BXI,BY+BYI) =6 T 
HEN GO SUB 3000 

2196 IF RTTR (BX+BXI/BY+BYI )=6 T 
HEN GO SUB 3000 

2198 IF RTTR (BX+BXI,BY+8YI)=71 
THEN GO SUB 3200 

2200 IF BOLRoO THEN LET BX= 8 X+B 
XI: LET BY =BY+BYI 
2210 RETURN 

3000 REH ********************** 
3010 REH ** CHOOUE FRNTRSHRS ** 
3020 REH ********************** 
3030 FOR R=1 TO 10 

3040 PRINT INK INT (RND* 8 );RT BX 
B+BXI,BYB+BYI; 

3050 BEEP .009/0 BEEP .006,5 
3060 NEXT R 

3070 PRINT RT BXB+BXI, BYB+BYI; " 

3080 LET PU =PU +50: PRINT PRPER 1 
; BRIGHT 1;RT l,ll;PU 
3090 PRINT RT FXB,FYB;" M ;RT FXB 
- 8 /FYB; M M : LET FY=15 
3100 RETURN 

3200 REH ********************** 
3210 REH *** CHOOUE RROUETR *** 
3220 REH ********************** 
3230 IF BX1=1 RND BY1=1 THEN LET 
BXI=—1: RETURN 

3240 IF BXI=-1 RND BYI=1 THEN LE 
T BYI=-1: RETURN 

3250 IF BXI=1 RND BYI=-1 £N LE 
T BY1=1: RETURN 

3260 IF BXI=-l RND BYI=-1 THEN L 
ET BXI=1 
3270 RETURN 

3500 REH ********************** 
3510 REH ** CONTRDOR PELOTRS ** 
3520 REH ********************** 
3530 FOR R=1 TO 20: PRINT INK IN 
T (RND* 8 );RT BXB BYB:“F- : BEEP . 
00b ,R: BEEP .005/0 : NEXT R 
3540 PRINT RT BXB,BYB; “ 

3550 LET BOLR=0: LET CBO=CBO-l 
3555 PRINT PRPER 1, BRIGHT 1;RT 
3,21;CBO 

3560 IF CBO=0 THEN GO TO 4000 
3570 RETURN 

4000 REH ********************** 
4010 REH *** FINRL PROGRRHR *** 
4020 REH ********************** 
4030 IF PU >RE THEN LET RE=PU 
4040 PRINT INK INT (RND* 8 );RT 11 
,14;"GRHE”;RT 12.14;“OUER" _ 


BI-PAL ETA 



mueven los dos fantas- 


Desde la linea 3200 a la 
linea 3270.- se efectua el 
incremento o decremento 
de la pelota segun cho- 
que esta contra la raque- 


mas en pantalla. ta. 


Desde la linea 2000 a la 
linea 2210.- se realiza la 
impresibn y el movimien- 
to de la bola en la panta¬ 
lla, a la vez que desde la 
linea 2152 a la linea 2200 
estbn todas las compro- 
baciones de los choques 
contra la pelota, tanto de 
raqueta, fantasmas o 
contra la pared. 

Desde la linea 3000 a la 
linea 3100.- se realiza lo 
que pasaria en pantalla, si 
choca la pelota contra los 
fantasmas. 


Desde la linea 3500 a la 
linea 3570.- se imprimen 
las pelotas en pantalla (su 
numero), a la vez que se 
van contabilizando. 

Desde la linea 4000 a la 
linea 4080.- se realiza el fi¬ 
nal del programa, donde 
aparece el clbsico GAME 
OVER en pantalla. 

Y por ultimo, desde la 
linea 9000 a la linea 
9080.aparecen todos los 
Datas de los correspon- 
dientes UDGs del progra¬ 
ma. 


4045 PRI*“ rs ,f CV ' HT 15,9;“OTR 
R UEZ C£ N 

4050 BEEP .k>0S,l0. .004,0 

BEEP .006,5 

4060 IF INKEY $ = "S" THEN GO TO 60 
4070 IF INKEY $ ="N“ THEN STOP 
4030 GO TO 4040 
9000 REH ******************* 

9010 REH *** DRTRS UGDs. *** 

9020 REH ******************* 

9030 DRTR 28,126,103,53,31,29,13 
,11,11,13,29,31,53,103,126,23 
9040 DRTR 56,126,230,172,248,184 
,176,208,240,176,134,248,172,230 
,126,56 

9050 DRTR 126,219,153,255,231,19 
5,255,165,0,71,22,48,130,2,198,2 

08 

9060 DRTR 60,94,110,24,24,126,11 
0,60,0,60,94,110,126,110,60,0 
9070 DRTR 124,254,182,218,174,22 
2,124,0,127,255,183,219,174,215, 
127,0 

9080 DRTR 252,222,126,238,222,25 
4,252,0 
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PROXIMAS 


CORREO DEL 
LECTOR 


SECCIONES 


CLUB 


Consultas, dudas, problemas 
sugerencias, etc. de los lectores 
que estbn relacionados con el 
sistema SPECTRUM, serbn 
publicadas y respondidas en esta 
seccibn. 


En este apartado daremos 
cabida a todos los anuncios 
entre particulares o clubs de 
informbtica que estbn 
interesados en cambiar. comprar 
o vender algo, establecer 
contactos, etc 


Enviad vuestros mensajes: Mundo SPECTRUM, Tombs Lbpez, 3 6.° 28009 MADRID 


Del 20 al 27 de Noviembre 


IFEMA 



27 FERIA ORCIAL MONOGRAFICAIMTERNACIONAL 
DEL EQUIPO DE OFICINA Y DE LA IMFORMAT1CA 


PPtci.P 




s.i.m.o. 


J0RNA0AS PROfESiONAiES DE SVO d* 
?0 23 24 25 26 > 27 Enesfosdasnonaora 
taqu< >a desde as 10 30nas^*as 15 was E r 
este per-odo. * para <a emrada en e recmto 
sera wesara a tar.eta de protosonai Que 
ie sera faoWada a' presrtar $u n*ta:or- 
oaiacrednarsudentdad 
Conpeso Infer naoo^ai sobre D»se»V> * 
Contort en la 0fc*a.ClDYC0 87 
Conterenoa 'ntemaccna* de mtormat'ca 
87 Jomadasparap'oiescnd'es CoHerenoas 
soOre tecnoKs* especa*s CoKxjuos sobre 
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Prc*txti ia ent»adi a "wn * 18 #*os 


s.i.m.o. 

Recinto Ferial de IFEMA en la Casa de Campo - Madrid 
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DISCIPLE 


Interface Centronic 
de impresora incor- 
porado. 

List y copy de pro- 
gramas con y sin 
grises. 

Doble interface de 
joystick convencio- 
nal Sinclair/Kemps- 
ton. 

1 6 2 unidades de 
disco 3 1 ' 2 " 6 5 1M ". 

800 Kbs. por disco. Al¬ 
ta velocidad de 
transferencia. 

No ocupa RAM. 
Transfer de progra- 
rnas 48/128 Kbs. y 
pantallas. 

Totalmente compa¬ 
tible con el software 
existente para Mi¬ 
crodrive. 

Ficheros secuencia- 
les y acceso alea- 
torio. 


Ayala, 86 
TelGfs 435 64 20 
28001 MADRID 


































































